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0000C!0' 
000000* 



IftMODX <TMBK > 172440,224,5,0 
MODULF 150000, Tf'.BK ,172440,22 
.TITLE T^BK PEC/Xll SYSTEM EX 
OrXCOM VERSION 6 23-MAy 
.LIST 



i?!,500,130,BUFI''',256,, 1024, 
4,5,u,0,500,130,BUFl;^,256.,1^24, 
EhCISFP MODULE 

78 
PTN 



««««««#««#««««««»««« 



000000* 




PEGINi 




000000* 


046524 045502 


040 MODNAMJ 


.ASCII /TMBK 


fc00005* 


000 


XFLAGt 


.BYTE OFEN 


000006' 


172440 


AODHI 


I72440*fe. 


000010* 


000224 


VECTORi 


224*0 


000012' 


240 


BRl: 


.BYTE PPTY5+ 


000013' 


000 


BP2I 


.BYTE F«?TY0 + 


000014' 


000001 


DVIDll 


U*l 


000016' 


0M000t« 


SHll 


OPEN 


000020' 


000000 


SP2I 


OPEN 


000022' 


000000 


SB3I 


OPEN 


000024' 


000000 


SR4I 


OPEN 






;«««*#«««««#»««««4(»*#« 


030026' 


150000 


STATI 


150000 


000030' 


002104' 


INITI 


START 


000032' 


000252' 


SPOINTI 


^ODSP 


000034' 


000000 


PA5CNTI 





000036' 


000500 


ICONTi 


500 


000040' 


000000 


ICOUNTI 





000042' 


000000 


POFCmi 





000044' 


000000 


HRPCNTI 





000046' 


000000 


SOFPASI 





000050' 


000000 


KPDPASI 





000052' 


000000 


SYSCNTl 





000054' 


000000 


RANNUMI 





000056' 




CONFIGl 




000056' 


000000 


RESlI 





000060' 


000000 


HES2! 





000062' 


000000 


SVP0I 


OPEN 


000064' 


000000 


SVPll 


OPEN 


000066' 


000000 


SVP2I 


OPEN 


000070' 


000000 


SVH3I 


OPEN 


000072* 


000000 


SVR4I 


OPEN 


000074' 


000000 


SVP5I 


OPEN 


000076' 


000000 


SVH6J 


OPEN 


000100' 


000000 


CSRAl 


OPFN 


000102' 




sbadr: 




000102' 


000000 


ACSPl 


OPEN 


000104' 




WASADpl 




000104' 


000000 


ASTAT; 


OPEN 


000106* 




fPPTYPl 




000106' 


000000 


ASDl 


OPEN 


000110' 


000000 


AWA5! 


OPEfi 


000112' 


002414' 


PSTRTi 


PFSTf^T 


000114* 


000000 


WDTOl 


OPEN 


000116* 


000000 


WDFPt 


OPEN 


000120* 


000000 


INXPI 


OPEN 


000122' 


000130 


IDNUMi 


130 


000124* 


001016' 


PBUFVAl 


PITFIN 


000126* 


000000 


PBUFPAS 


OPEN 



fMODULF NftME, 

lUSFD TO KEEP TRACK OF ^.BlFFF USAGE 

MSI DEVICE ADDR. 

nST DEVICE VECTOR, 

nST HP LEVEL, 

f2ND BR LEVEL. 

jDfcVlCE INDICATOR 1, 

JSWITCH REGISTER 1 

JSWXXCH REGISTER 2 

jSWIICH REGISTER i 

ISWITCH REGISTER 4 

> STATUS WORD, 

IMODULE START ADUH, 

IMODULE STACK POINTER, 

IPASS COUNTER, 

>» OF ITERATIONS PER PASSs500 

ILOC TO COUNT ITERATIONS 

ILOC TO SAVE TOTAL SOFT ERRORS 

ILUC TO SAVE TOTAL HARD ERRORS 

JLOC TO SAVE SOFT ERRORS PER PASS 

ILOC TO SAVE HARD ERRORS PER PASS 

M OF SYS ERRORS ACCUMULATED 

JHOLDS RANDOM « WHEN RAND MACRO IS CALLED 

jREStHVtU FOR MONITOR USE 

I RESERVED FOR MONITOR USE 

JRESERVED FOR MONITOR USE 

;LOC TO SAVE R0, 

jLOC TO SA^t kl, 

JLOC TO SAVE P2. 

»LOC TO SAVE R3. 

;L0C TO SAVE R4, 

;LOC TO SAVE R5, 

fLOC TO SAVE R6, 

;ADDR OF CURRENT CSR, 

!ADDR OF GOOD DATA, OR 

fCONTENTS OF CSH, 

jaudr of bad data, or 
istatus reg contents, 
;type of error 

lEXPECTED DATA, 
lACTUAL DATA. 

J RESTART ADDRESS AFTER END OF PASS 
JWORDS TO MEMORY PER ITERATION 
InOPDS FROM MEMORY PEP ITERATION 
l« OF INTERRUPTS PER ITERATION 
jMODULE IDENTIFICATION NUMBER=U0 
JREAD BUFFER VIRTUAL ADDRESS 
IREAD bUFFER PHYSICAL ADDRESS 
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000130' 
000132* 
000134* 
000136' 
000140' 
000142* 
000144* 
f00146' 
000150' 



000000 
000400 

000000 
000000 

002000 

000000 
000000 
000000 
000000 
000040 



RBUFFAI 


OPEN 


RBUFSEI 


256. 


V^BUFPAJ 


OPEN 


WBUFEA! 


OPEN 


wflUFRQl 


1024, 


WBUFSZ! 


OPEN 


CDERCT! 


OPEN 


CDwDCTI 


OPEN 


FRFFj 


OPEN 




.PfcPT 




,NL1ST 




,WOPD 




.LIST 




.ENnn 


MODSPI 







JREAD BUFFER EA BITS 
JSIZE OF THE READ BUFFER 
fWPITE BUFFER PHYSICAL ADDRESS 
»WHITE PUFFER EA BITS 
JWRITE BUFFER SIZE REQUESTED 
MHITE BUFFER SIZE AVAILABLE 
jCDAIA/DATCK error COUNT 
JCOATA/DATCK wORO COUNT 
; RESERVED FOR FUTURE USE 
IMODULE STACK STARTS HERE, 



«»»»»« *»»»»**«#«»«*»»«»»«#»#####»»*«4>4HHHH,^^Hf#^^HHj^j<Ht^<(<j^^f<j#^<t^^^ 
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285 


000252* 




286 


P00252' 


000000 


287 


0'.»02S4' 


000000 


288 


000256* 


000000 


289 


k<00260* 


0K)0000 


29M 


000262' 


000000 


291 


000264* 


000000 


292 


000266* 


000000 


293 


000270* 


000000 


294 


000272' 


000000 


295 


0f»0274' 


000000 


296 


000276* 


000000 


297 


000 300* 


000000 


296 


000302* 


00000P 


299 


0k;0304* 


000000 


300 


00^306* 


000000 


101 


000310* 


000000 


302 


000312' 


002066' 


103 


000314* 


177777 


304 






305 


000316* 


000000 


306 


000320* 


000000 


307 


000322' 


000000 


308 


000324' 


000000 


309 


00to326' 


000000 


310 


000330' 


000000 


311 


000332* 


000000 


312 


000334' 


000000 


313 


000336' 


000000 


314 






315 


000340* 


000000 


316 


000342* 


000000 


317 


000144* 


000000 


318 


000346' 


000000 


319 


000350* 


000000 


320 


000352* 


000000 


321 


000354* 


000000 


322 


000356' 


000000 


323 


000360' 


000000 


324 


000362' 


000000 


325 


000364* 


000000 


326 


000366* 


0r'0000 


327 


000370* 


000000 


328 


000372* 


000000 


329 


00(»374* 


000000 


330 


000376* 


000000 


331 


000400' 


000000 


332 


000402' 


000000 


333 


000404' 


000000 


334 


000406' 


000000 


335 


000410* 


000000 


336 


600412' 


000000 


337 


000414' 


000000 


338 


000416' 


000200 


339 


O010J6' 


000400 


340 


002016* 


000006 



TABLEl 




HHCSl 1 





MTWCl 





PHBAS 





MTFCl 





PHCS2J 





MTDSl 





MTEPI 





FTASJ 





MTCKl 





MIDBl 





MIMRI 





MTPTi 





^•TSNI 





MTTCl 





PHPAEJ 





PHCS3I 





CYJ 


CYCCNT 




177777 


SELi 


OPEN 




OPLN 




OPEN 




OPt'N 




OPEN 




OPEN 




OPEN 




OPEN 


SLACTI 





PDEAl 





t(PEAl 





CLKl 





cmi 





DENSTYJ 





FUNCI 





ZEROl 





DVICCI 





DRIVES 





DRYVEI 





WBl 





hBSAVl 





PBl 





P8SAVI 





SLAVNOl 





FOINTI 





HOLD J 





HLKl 





POFTLCl 





SOFTTOI 





BUFENDS 


OPEN 


BUFEPAI 


OPEN 


BUFFEAl 


OPEN 


SOFrERI 


,PLKW 128 


BUFINi 


,tLKW 256 


TABLSFl 


,BLKB 6 



ICONXROL STATUS REG 
j^OPD COUNT REG 
»BUS ADDRESS 
jFRAME COIMT 
ICOWIROL STATUS 2 
JDEVICE STATUS 
lEPPOR PEG. 
, ATTENTION SUMMARY 
ICHECK CHARACTERS 
IDATA BUFFER 
M'AINTENANCE REG 
IPPIVE TYPE 



I DRIVE 

I DRIVE 

I DRIVE 

I DRIVE 

) DRIVE 

f DRIVE 

t DRIVE 

» DRIVE 



} HOLDS DENSITY COMMAND 



ICOPY OF DVIDI 
fWOPKING COPY OF D^lDl 
Jh£-ERPANT DRIVE COUNTER 



ISOFI ERROR TABLE LOCATION 

ISOFT ERROR lOTAL PER SLAVE 

f ADDRESS UF THE END OF THE READ BUFFER 

J END OF READ BUFFER PHYSICAL ADDRESS 

;ENp OF READ BUFFER EA BITS 

JSOFT ERROH COUNTER TABLE 

> INPUT/READ BUFFER 

JFUT SOFT ERROR NUMBER HERE IN ASCII. 
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341 


k)02024» 


000000 


342 


002026* 


000006 


343 


002034* 


000000 


344 


002036* 


000006 


345 


002044* 


000000 


346 


002046* 


000006 


347 


002054* 


00G000 


348 






349 






350 


002056* 


000000 


351 


002060* 


000000 


352 


002062' 


000000 


353 


002064' 


000000 


354 


002066* 


000000 


355 






356 


002070' 


000000 


357 






358 


002072' 


000 


359 


002073* 


000 


360 


002074* 


0fe:0 


361 


002075* 


007 


362 


002076' 


017 


363 


002077' 


002 


364 


002100* 


000 


365 


002101* 


000 


366 


002102* 


003 


367 


002103* 


000 


368 






369 






370 






371 






372 







fHAS TO BE ZERO TO END ASCII MESSAGE 

TABLSII ,RLKB 6 



TABLS2I .PLKB fa 


TABLS3I ,BLKH 6 



;D0 NOT CHANGE TH^: ORDER OF THE NEXT 4 LOCATIONS 

PAlBl 

XMEMi fr; 

PA221 

EA22I (^ 

CVCCNTJ 



CLPHDYl 



JDRIVE READY lUiER 



TPYlI ,PYTE 

TPY2I .BYTE 

TRY31 ,PYTE 

V.LIMJ .BYTE 7 

PRLIMi .BYTE 15, 

RFLIMt .BYTE 2 

LIMJj ,HYTF 

LIM2I .BYTE 

LIM3I .F^YTE 

FLAGS .BYTE 

jBIT IS EOT BIT 

JBIT 1 IS PEWIND BIT 

jBIT 2 IS HARD ERROR BIT 

JPIT 3 IS ALL DPIVES DONE BIT 



WRITE RETRi LIMIT 

READ REVERSE RETRY LIMIT 

READ FOp«ARD RETRY LIMIT 



t 



I 
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373 


002104' 


' 012767 


0t^200O 


176004 


STARTi 


MOV 


»1024,,WDFR 


374 


0'32n2' 


012767 


00040kJ 


175774 




MOV 


»256.,WDT0 


375 


002120' 


012767 


000007 


175772 




^'OV 


«7,INTP 


376 


002126' 


004567 


004144 






JSR 


R5,CLTAb 


377 
















37fl 












J SPLFCT OEN'SITY TO , 


379 












; INHIblltD, THEN 80( 


380 












; MODULE 


381 


402132' 


032767 


000 If 


175656 




BIT 


«B1T6,SRI 


382 


002140* 


001004 








BNE 


20$ 


383 


002142' 


012767 


002l0t5 


176200 




MOV 


«2300#l)fNSTY 


384 


^02150' 


000415 








BP 


21$ 


385 


002152' 








2061 






386 


002152' 


032767 


000200 


175636 




PIT, 


SCaT7,SPl 


387 


002160' 


00J004 








bNE 


22S 


388 


0021^2' 


012767 


001300 


176160 




MOV 


#13rO,DENSTY 


389 


002170' 


00k5405 








BF 


23$ 


390 


002172* 








22$t 






391 
















392 


002172' 


104403 


000000' 


0f 7040* 




KSGf'S 


» BEGIN iNODENS 


393 


002200* 


000167 


00ub32 






JMP 


FINl 


394 
















395 


00220 4' 








23S: 






396 


002204' 








2l$I 






397 


002204' 


005067 


176136 






CIR 


CM 


398 


002210' 


005067 


177652 






CLR 


CYCCNT 


399 


00221 4' 


105067 


177h63 






CLRB 


FLAG 


400 


002220* 


012767 


000001 


176150 




MOV 


»1#P0IMT 


401 


002226' 


005067 


176142 






CLP 


SLAVNO 


402 


"02232' 


016767 


175556 


176116 




MOV 


DVlDl,nviCE 


403 


002240* 


016767 


176112 


176112 




MOV 


DVICE,DHIVE 


404 


002246* 


012767 


177777 


176106 




MOV 


8-l»DRYVE 


4t^5 


002254' 


004767 


004344 






JSP 


rC, SETUP 


406 


002260' 


004767 


003144 






JSP 


PCfPEZET 


407 


002264' 


004567 


0t4156 






JSR 


RSfSWlTCH 


408 


002270* 


122737 


00k(006 


000041 




CMPB 


*6,0»41 


409 


002276* 


001021 








RFE 


133 


410 


00230U' 


113700 


000040 






MOVH 


9#40,Pfr) 


411 


002304* 


012701 


000001 






MOV 


»1 ,P1 


412 


002 310* 


105700 






is: 


TSTB 


H0 


413 


002312' 


001403 








BEQ 


1 2S 


414 


002314* 


006301 








ASL 


HI 


415 


002316* 


105300 








DECB 


H<^ 


416 


002320* 


000773 








BR 


IS 


417 


002322' 


130167 


176030 




1261 


BITP 


P1,DVICE 


418 


002326* 


001405 








BEQ 


13S 


419 


0023 30* 


140167 


176022 






BICB 


R1,DVICE 


420 


002334* 


104403 


000000* 


007014* 




MSGNS, 


BEGINrLDRIVE 


421 
















422 


002342* 








136! 






423 


002342* 


005767 


176010 






TST 


DVICE 


424 


002346' 


001002 








BME 


3S 


425 


002350* 


000167 


e00462 






JMP 


FINI 


426 
















427 
















428 

















>1024 WORDS FROM MEM/ITERATION 

>256 rtOROS TO M|;w/1TERAT10N 

|7 IMEPRUfc'TS PER/ITLPATION 

JCLEAN SOFT ERROR TABLE AND SLAVE TABLE 

;IF OPERATOR DID NUT SELECT SLAVES 
START AT : 1600 IF POSSIBLE, IF 1600 BPI IS 
) BP1--IF 800 BPI IS ALSO INHIBITED, DROP THE 

I IF 1600 BPI IS ENABLED THEN 

I BEGIN 

» SET 1600 BPI 

>END 

JELSE 

J IF 80k; BPI IS ENABLED THEN 

f BEGIN 

f SET 800 BPI 

> END 

J ELSE (« NEITHER ENABLED «» THAI'S IT «3 

» BEGIN 

lASCII MESSAGE CALL WITH COMMON HEADER 

1 DROP huDULE 

J END 

t 

t 

fZEPO PASS COUNTER 

fCLEAR CYCLE TAPE MARK COUNTER 

ICLEAR ALL FLAGS 

;SET SLAVE POINTER 

»CLEAP DROP POINTER 

IGET SELECTED DRIVES 

ISAVE DRIVES 

JSET DEVICE COUNTER 

ISEFUP REG ADDRESSES 

JBESET ALL REGISTERS 

I FIND SPl OPTIONS 

tl¥ TM IS LOAD MEDIUM THEN 

JPEGIti 

f GET LOAD-DEVICE NUMBER 

J INITIALIZE DRIVE POINTER 

t WHILE NOT POINTING AT LOAD-DRIVE DO 

f BEGIN 

> POINT TO fJEXT DRIVE 

t COUNT SHIFTS 

» END 

I IF LOAD-DRIVE SELECTED THEN 

BEGIN 
} DROP THE DEVICE 

lASCIX MESSAGE CALL WITH COMMON HEADER 
J END 
I END 

fIF NO DRIVES ARE SELECTED THEN 
IBECIN 
; DROP MODULE 

;end 
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429 










430 










431 










432 


002354' 


' 004567 


002234 




433 


002360' 


132767 


00lc10i0 


177515 


434 


002366' 


001007 






435 


002370* 


032767 


00 0V102 


175420 


436 










437 


002376* 


001003 






438 


002400* 


004567 


00235t; 




439 


0'^2404' 


000763 






440 


002406* 


004567 


003320 




441 


002412* 


000404 






442 










443 










444 










445 










446 


002414* 


005767 


175414 




447 


002420' 


001001 






448 


002422' 


000630 






449 


002»24' 


004567 


0031 16 




450 


002430* 


016767 


175470 


175752 


431 


002436* 


0627^7 


000776 


175744 


452 


002444* 


104415 


000000' 


000410' 


433 


002452' 


006367 


175736 




454 


002456* 


006367 


175732 




455 


002462* 


006367 


175726 




456 


002466* 


006 367 


175722 




457 










458 


002472* 








459 


002472* 


104414 


000000* 




460 


002476* 


016767 


175440 


175660 


461 


002504' 


016767 


175654 


175654 


462 


002512* 


066767 


175646 


175644 


463 


002520* 


005467 


175642 




464 


002524' 


005467 


175634 




465 


002530* 


016767 


175402 


175604 


466 


002536* 


006367 


175600 




467 


002542* 


006367 


175574 




468 


002546* 


006367 


175570 




469 


002552' 


006367 


175564 




470 


002556' 


004567 


002032 




471 


002562' 


005767 


175570 




472 


002566* 


001523 






473 


002370' 


132767 


000010 


177305 


474 


002576' 


001406 






47S 


002600' 


005767 


175532 




476 


002604* 


001514 






477 


002606* 


004767 


003374 




478 


002612' 


000727 






479 


002614* 


004567 


003022 




480 


002620' 


103724 






481 


P02622' 


004567 


002410 




482 


002626' 


103403 






4S3 


00263fe)' 


004567 


00244fc 




4i4 


002634' 


103767 







JSR 


P5,SELDRV 


PITH 


«bIT3,FLAn 


BNE 


4S 


BIT 


«PTT1,SR1 


BME 


4S 


JSR 


R'^^SLAV 


BR 


3S 


JSR 


P5,REWNL) 


BP 


FEST 





RESTRTJ TST 


PASCNT 


PNE 


REST 


BF 


START 


RESTI JSR 


P5,BUFF 


MOV 


PBIIFVA^BUFEND 


ADD 


«510.,BUFEND 



;HFRE THE PROGRAM SELECTS ALL THE DRIVES, REi\INDS ALL THE 
;SLAVES AND CLEARS THEM TO THEIR INIT STATE BEFORE CONTINUING, 

JSELECT A DRIVE 

lALL DRIVES DOKE? 

>YES 

)DOES OPERATOR wANT TO 

JSELECT THE SLAVES 

IYE5, ASSUME SLAVE SELECT TABLE IS SETUP 

JNO, FIND ALL SLAVES ON THIS DRIVE 

»AND CHECK FOR MORE DRIVES 

jREi^IND ALL SLAVES 

J CONTI^'UE 



I SUPPORT FOR CSS DT03*S 

» CONTI^'UE 

I NO PASSES, BEGIN AT STAR I 

1 GET READ BUFFER INFORMATION 

> GET START OF READ BUFFER 

; COMPUTE THE END OF THE BUFFER 

fGET PHjfSICAL ADDPESS FROM } 6-BIT BUFEND 



>GET WRITE BUFFER INFORMATION 

»SAVE ivRlTE SIZE BUFFFR 

;SAVE IT FOR WC 

>GET FRAM COUNT 

JGET 2'S COMP OF WORD COUNT 

IGET 2'S COMp OF FRAM COUNT 

IGET FA BUS 

JSHIFT EA BITS INTO 

JBIIS 8,9 



;5ELECT A DRIVE NUMBER 

JTEST FOP ANY DRIVES LEFT 

ff'O DRIVESi GO DROP MODULE 

ICYCLED THROUGH ALL DRIVES? 

»N0, CONTINUE 

IYES# ANY SLAVES LEFT? 

>N0, GO DROP MODULE 

;*G0 SEE ABOUT SWAPPING DENSITY 

fON TO NEXT DRIVE 

fGO GET SLAVE NUMBER 

>IF ALL SLAVES DONE, ON TO NEXT DRIVE 

US DPIVE READY? 

lYESi CONTINUE 

|N0# GO WAIT 



GETPAS, BEGIN, BUFEND 
ASL Bl'FEEA 
ASL BUFEEA 
ASL BUFEEA 
ASL OUFEEA 



SSLI 



GWBUF8, 

MOV 

MOV 

ADD 

NEG 

NEG 

MOV 

ASL 

ASL 

ASL 

ASL 

JSP 

TST 

BEQ 

BITS 

BEO 

TST 

BEQ 

JSR 

BP 

JSR 

BCS 

JSR 

BCS 

JSR 

Rrs 



BEGIN 

WBUFSZ,WP 

WP,WBSAV 

Mb, MB 

WBSAV 

WB 

WPUFEA,WREA 

WRFA 

WREA 

WPEA 

WPEA 

RSiSELDPV 

DVICE 

FINI 

»BIT3,FLAG 

SSL 

SLACT 

FINI 

PCiSWAPeDFNSlTX 

NEXT 

R5,GT5LAV 

NEXT 

R5, READY 

1$ 

P5,N0TRDY 

C.CT 
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48S 
4H6 
487 
488 
489 
490 
491 
492 
49J 
494 
495 
496 
497 
498 
499 
500 
501 
5k$2 
503 
504 
505 
506 
507 
508 
509 
510 
5U 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
533 
536 
537 
538 
539 
540 



0*92636' 1054)67 I7723P 
002642* lv)50fe7 177225 
002646' 103067 177222 



002652* 
002656* 
002660' 
002666* 
W02670* 
002676* 
002702* 
002706' 



0^^4567 
103471 
132767 
001410 
112767 
004767 
P04767 
000671 



000001 177215 

0001*01 17 7205 

001470 

0M3 30t'- 



002710* 004567 000576 
002714* 103504 



002716' 
002722* 
002724' 
002732' 

002734' 
002740' 
002744' 
P02752' 
002754' 

002760' 
002766' 
002770* 
002774' 
003002' 
003006' 
003912' 
003016* 

003020* 
003024' 
003026' 
003032' 



003036' 
003036' 



003042' 
003046' 
001054' 
003056' 
003064' 
003066' 
003074* 



004567 000616 

103544 

104412 00O(?'0v' 

002734' 



005267 
005267 
026767 
001422 
104413 

022767 
001007 
005067 
012767 
000167 
005267 
006367 
000676 



175406 
177122 
175066 175374 



f»00007 175406 

175400 

000ct01 175174 

177464 

175362 

175360 



004567 id«e402 

000240 

005067 175314 

104413 000000' 



104410 0k30Ok/0' 



105i67 
132767 
001021 
126767 
001272 
104403 
032767 



177024 

00000 4 



177016 177006 



0A(10525 ie-Al'P-79 07 


CLBB 


TRY I 


CT.RB 


Tpy2 


CLRB 


TFY3 


JSR 


R5# WRITE 


PCS 


RFTPYl 


BITB 


|fBIT0,FLAG 


WV.Q 


GOA 


PICB 


»HlT0,rLAG 


JSP 


PCfEOT 


JSR 


PC,SWAP,Dt;NSlTY 


BP 


NEXT 


JSR 


RS^RDPtV 


BCS 


RE:TRY2 


JSR 


R5,RDFi«)D 


PCS 


PFTHY3 


CDATA$ 


BEGIN, RBUFPA 


. + 2 





INC 
INC 
CMP 



CNT 

CYCCNI 
ICONT.CNT 
PASS 



ENDlTSibEGIN 



CONTNUl CMP 
BNE 
CLP 
MOV 
J MP 

IS! mc 

ASL 
BR 



PASSi 



JSR 

NOP 

CI.P CNT 

F^DlTS,BEGIiJ 



ENDSfBFGI'^ 



«7,SLAVN0 

IS 

SLAVNO 

«l»POIM 

NEXT 

SLAVNO 

POINT 

SSL 

P5#TPM^ 



CLEAR HETFY COUNTERS 



WRITE DATA 

TRY AUAIM IF ERRORS 

EOT ? 

NO, CONTINUE 

YES, CLEAR EOT FLAG 

GO DO EOr HOUSEKEEPING 
♦ GO SEE ABOUT Si^'APPING DENSIT5( 

COhTlWUF 

READ REVERSE 

TRY AGAIN IF ERRORS 

READ FOhWARD 

TRY AGAIN IF ERRORS 

REQUEST FOR MONITOR TO CHECK DATA 

IF ERHOR# CONTINUE 

COUNT A CYCLE 

COUNT TOTAL CYCLES PER TAPE 

TIME FOR END OF PASS? 

YES 

SIGNAL ENU OF ITERATION, 

MONITOR SHALL TEST END OF PASS 

ALL SLAVES DONE ON THIS DRIVE? 

NO, ON TO NEXT ONE 

YES, CLEAR UNIT NUM8EP 

RESET POINTER 

ON 10 NEXT l^RIVE 

INCREMENT UNIT NUhBER 

l^OVE POINTER 

GO TRY ANOTHER SLAVE 

GO DO A TAPE MARK 

ERROR RETURN 

YES CLEAR COUNT 

SIGNAL END OF ITERATION, 

MONITOR SHALL TEST END OF PASS 



.y 



■) 



? DROP THE MOnULE 



;ENTERED BY AN ERROR WHILE WRITING 



0f^00f*0' 

0ti0004 



007072' 
174714 



FETPYU INCB 


TRYl 


BJTB 


#3IT2,FLAG 


BNE 


13 


CMPB 


LIM1,TPY1 


BNE 


GO 


MSGNS 


BEGIN, WRIT 


BIT 


»B1X2,SRI 



J COliNT A RETRY 

J HARD ERROR ? 

I YES, DON'T RETRY 

JLIMIT MET? 

>N0, TRY RGAlf^ 

; ASCII MESSAGE CALL WITH COMMON HcAUEF 

; NEED 10 PRINT ERROR MESSAGE ? 
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541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
S93 
394 
595 
S96 



003102' 0t^l406 
003104* 012767 



^3112' 104426 



003120' 004567 
001124' 000507 



003126' 
003132' 
003140' 
003142' 
003150' 
003152' 
003160' 
003166' 
0k)3l7C' 



105267 
132767 

001021 

126767 

001020 
104403 
P32767 
001406 
012767 



003176' 104406 



003204' 
003210' 
003212' 
003216' 
0f'3222' 
003224' 
003226' 
003232' 



00J234' 
003240' 
003246' 
003250' 
003256' 
003260' 
003266' 
003274' 
003276' 



004567 
0M0455 
004567 
004567 
103401 
000402 
004567 
000626 



105267 
132767 
001021 
126767 
PI01020 
104403 
032767 
001406 
012767 



001304' 104406 



003312' 
001316' 
003320' 
003324' 
003330' 
003332' 
003334' 
003340' 



004567 
000412 
004567 
004567 
103401 
000402 
004567 
000167 



003344* 032767 
003352' 001602 
003354' 004567 



0^.0001 

000000' 

0G2324 



176711 
000k)04 



e00v'00' 

Pl^0Hl(54 
0C''000l 
000000' 

00224" 

0^^2232 
0^0166 



176634 

0000(»1 



000000' 
0(^0004 

00K'00l 
PCT00H,0* 

002132 

002124 

000034 



002110 
177352 



000001 

001374 



174774 

000252* 



176743 
176723 



007100* 
17463^* 



174710- 
0^0252' 
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PFQ IS > NO, CONTINUE 

MOV #1,ERRTYP JDATA EhROR 

J #»•»»»»»*■»»««»«•»»*»««*»■»»»*##»«»#*»#»*»»«««####*«■»■»»#«»»■»»» ■»»««* 

SOFEPS.f^EGlN, TABLE j YES, PPIwT ERROR MESSAGE 

JSR R5, CLEAR jCLEAR OUT ERRORS 
HR NEXTA jYtS 



jENTERED PY 
RETRY2I INCB 
bITB 
BNE 
CMPB 
BNE 
MSGN 
BIT 
BE a 
MOV 
;««« 
SOFE 

IS J JSP 

BR 
2$l JSR 

JSP 

BCS 

BR 

JSR 

BP 



3$t 

4$t 



176635 
l76ol6 



007106' 
174522 



174602 
000252* 



AM ERROR WHILE R 

TPY2 

KBIT2#FLAG 

IS 

LTM2,TkY2 

2S 
S, BEGIN, RDR j ASC 

(»H1T2,SR1 

IS 

«1»FRPTYP 

R8, BEGIN, TABLE 

PF>, CLEAR 

NEXTA 

P5, CLEAR 

P5,F«MDSPA 

3$ 

4$ 

R5,CLFAR 

GO A 



EADING IV REVERSE 
jCOUNf A RETRY 

> HARD ERROR ? 
; ^ES# DON'T PETPi 
?LIf.IT MET? 

•,no 

II MESSAGE CALL WITH COMMON HEADER 
J NEED TO PRINT ERROR MESSAGE ? 

> NO, CONTINUE 
JTATA ERROR 

YES, PRINT ERROR MESSAGE 
»»»»»■»##«##*»»#»»#•#»»*»#»#»*#»«*«■ 
JCLEAP OUT ERRORS 
; CONTINUE ON 
ICLEAP OUT EHRORS 
f SPACE FORWARD 
i ERROR RETURN 
I TRY AGAIN 
jCLEAR OUT ERRORS 
I TRY AGAIN 



»»«##» 



««»««««»« 



•ENTERED BY AN EFRUR WHILE READ 

PETRY3J INCB TPY3 

BITt «PIT2»FLAG 

PME IS 

C^'PB LIM3,TRy3 

BNE 2S 

M5GN$,PEGIN,RnF lASCII 

BIT »BIT2#SR1 

BEO IS 

MOV «l,ERRTYP 

;«»««»««»««»««««»«#««<»« 

SOFERS, BEGIN, TABLE 



ISI 


JSR 


R5#CLFAP 




BP 


NEXTA 


2S» 


JSP 


R5»CLEAF 




JSP 


RR^PKSPAC 




PCS 


38 




BR 


4$ 


3$l 


JSP 


RSrCLEAR 


4$l 


JMP 


GOB 


NEXTA 1 


BIT 


#BIT0,5P1 




PEG 


CONTNU 


NEXTBl 


JSP 


R5,DRSV 



ING rOWARD 

ICOUNT A RETRY 

J HARD ERROR ? 

I YE5» DON'T RETRY 

lUMIT MfciT? 

|N0 
MESSAGE CALL WITH COMMON HEADER 

I NEED TO PRINT ERROR MESSAGE 

J NO, CONTINUE 

IDATA ERROR 

J YES, PRINT ERROR MESSAGE 

fCLEAR OUT ERRORS 
J CONTINUE ON 
ICLEAR OUT ERRORS 
I UO A BACKSPACE 
I ERROR RETURN 
ITRY AGAIN 
fCLEAP OUT ERRORS 
I TRY AGAIN 



IDROP SLAVE? 

JNO, GO DO ANOTHER DRIVE 

JYES 



tf ««»«»«'««#« 



««««»«<»»««« 
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597 
598 
599 
600 
601 
60 2 
603 
604 
605 
606 
607 
608 
609 
610 
6U 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
646 
649 
650 
651 
652 



fr?0336M' 000167 177374 



}G0 DO ANOTHER UHIVK 



003364' 
003372' 
00340«' 
003406' 
»)H3410' 
k)03416' 
s^w3424' 
003426' 
003434' 
003442' 
003444' 
0*^3452' 
00 3 460* 
003466* 
003474* 
003502' 
003510' 
003512' 
003520' 
003526' 
003534' 
00354^' 
003550' 
003556' 
003560* 
003566' 
003574' 
1303602' 
003613' 
003616* 
003624' 
003626' 
003634' 
003642' 

003644* 
003652' 
003654' 
003662' 
003666' 
003672' 
003676* 
003702' 
003710' 
003716' 
003724* 
003732' 
003736' 
003744' 



016777 
012777 
012767 
000561 
013777 
012767 
000552 
016777 
012767 
000543 
016777 
012767 
016777 
016777 
016777 
016767 
000455 
016777 
012767 
K16777 
016777 
016777 
016767 
000432 
016777 
012767 
016777 
016777 
016777 
016767 
000407 
012767 
016777 
000443 

032767 
001434 
017767 
006267 
006267 
006267 
006267 
104416 
016777 
016777 
042767 
000367 
016767 
056767 



174772 
177777 

000133 

177777 
000131 

174730 
000127 

174712 
000161 
174702 
174672 
174434 
174634 

174644 
000177 
174640 
17 46 30 
174644 
174640 

174576 
000171 
174572 
174562 
174312 
174516 

000125 
174522 



174670 
174660 
174744 

174642 
174726 

174626 
174710 

174610 
174o72 
174566 
174564 
174554 
176350 

174542 
174624 
174520 
174516 
174506 
176302 

174474 
174556 
174452 
174450 
174440 
176234 

174516 
174420 



001POO 174204 GOGOi 

174376 176174 

176172 

176166 

176162 

176156 

f»H0v^0"»' 002056' 

176146 174340 

176142 174362 

000034 176132 

176126 

176122 176114 

176110 174400 ISr 



MOV 

MOV 

Mnv 

PP 

MOV 

F'OV 

BP 

MOV 

f<OV 

BR 

MOV 

MOV 

MOV 

MOV 

^10v 

MOV 

bP 

MOV 

MOV 

MOV 

MOV 

MOV 

^'0V 

BP 

MOV 

HOV 

MOV 

MOV 

MOV 

MOV 

BP 

^'OV 

MOV 

bP 

BIT 
BEQ 
MOV 
ASR 
ASP 
ASR 
ASP 



DP^VE,BPHCS2 

#177777, flMTFC 

H33,FUNC 

GOGOI 

)»177777,BMTFC 

«,I31,FUNC 

GOGOI 

DPYVE»apHCS2 

9l27»FUNe 

GOGOI 

DpYVE,&pHCS2 

«161,FUNC 

WBSAV,aMTWC 

wIP^pHTFC 

WBUFPA.SRHBA 

WPEAiXMEM 

GOGO 

DPVVE,0PHCS2 

#n7,FUNC 

pPSAV#iMTWC 

HB,l8MTFC 

PUFEPArftiRHbA 

PUFFEA,XMEM 

GOGO 

DRYVE,(aRHCS2 

»171,FUNC 

pns»V,PMTWC 

FBfSMTFC 

RBUFPA,(aRHRA 

HDEA^XMEM 

GOGO 

#)25,FUNC 

PPYVE,3HHCS2 

GOGOI 

8ADDR22rRFSl 
IS 

3PHBA,PA18 
XMEM 

XMEM 

xr-EM 

Xf-'EM 



MAP22S, BEGIMrPAlB 



MOV 

MOV 

PIC 

5WAB 

MOV 

PIS 



pa22rl?RWBA 

EA22»0PHBAE 

»34,EA22 

EA2? 

EA22,XMEM 

XMEM,F('NC 



?LOAD SEliECTEP UNIT 

ILOAD FRAME COUNT 

fhOkD BACKSPACE FUNCTION 

JDO IT 

I LOAD FRAME COUNT 

; LOAD SPACE FORWARD FUNCTION 

f DO IT 

ILOAD SELECTED UNIT 

fSET TAPE MARK AND 

JDO IT 

fSET DRIVE NUMBER UP 

JLOAD WRITE 

iLOAD WORD COUNT 

JLUAD FRAME COUNT 

> LOAD BUSS ADDRESS 

JSKT EA BITS 

JUU IT 

ISET DRIVE NUMBER UP 

»LOAD READ REVERSE 

JLOAD WORD COU'n 

jLOAD FRAME COUNT 

? LOAD BUS ADDRESS 

>SET EA BITS 

JDO IT 

JSET DRIVE NUMBER UP 

JLOAD READ FOhWARU 

jLOAD WOPO COUNT 

JLOAD FRAME COUNT 

J LOAD BUSS ADDRESS 

JSET EA BITS 

jDO IT 

JSET ERASE COMMAND . 

JSET DRIVE NUMBER 

J DO IT 

jll/70 SUPPORTED? 

JNO, SKIP 11/70 SETUPI NO GOOD 

JCONVEPT 18 BIT 

JADORESS TO 22 BITS 



J 

J GET 22-BIT ADDR FROM 18-BIT ADDP 
JSETIIP Rri FOR 22 BITS 
JLOAD THE EA BITS 
JCLEAP UNUSED BITS 
JLINtUP EA falTS FOR RHCSl 
jSETUP BITS B,9 FOR CSl 
JLOAD EA BITS INTO COMMAND wOPD 



003752' 056777 174372 174324 GOGOlj 



tTS 



DENSTY»(^MTC 



I SET THF DENSITY 
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^ 



653 
654 
655 
6S6 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
670 
679 
680 
681 
682 
683 
684 
685 
686 
687 
668 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
70S 



003760* 016777 174366 174264 
003766* 104400 00^1000' 



MOV F11NC^«RHCS1 
EXITS, BEGIN 



JEXECUTE THE COMMAND 

JEXIT TO MOiaiOR, 



MODULE WAIT FOP INTtPRUPT, 



132777 
00101 3 
012777 



003772 
00400P' 
004002 
004010' 

004010' 11C.44P7 
H04014' 104407 
004020 
004026 

004030 



032777 
0017 70 
000205 



PiT0000' 
000001'' 

02?00^^ 



174264 
174242 



174236 



004032' 



004032* 000004 000Me.T 004040* 



004040* 005777 174206 



004044' 
004(^46* 
00405"' 
004056' 
004064' 
004066' 
004^74' 
O04!?76' 
0ti4102' 
f/04110' 
004116' 
004120' 
004126' 
004130' 

004134' 
004142' 
004144' 
004152' 
004154' 
004162' 
004170' 
004172' 
004200' 
004202' 
004210' 
004212* 
004220' 
004222* 
004230' 
004232* 
004236* 
004240' 



100401 
000547 
042777 
032777 
001404 
152767 
000534 
004567 
142767 
032777 
001016 
032777 
001517 
004567 

032767 
001477 
104403 
000432 
152767 
032777 
001015 
032777 
00103S 
032777 
001404 
1044^3 
000430 
032777 

001011 

fc05777 
100441 

005067 



001000 
002000 



174210 
174200 



000301 176007 



00l3ic» 

0f.000 4 

075477 
102300 
0^^2366 



000004 
020000 



00000^5* 

040000 

174026 



175773 
174150 



173654 

007046' 

175721 
174062 

174062 

174054 

007034' 



PFWIMDS niTB 
BNE 



»PITl,aMTDS 
18 
MOV «7,flRHCSl 



IS: 

WTRtlpT! 



174022 4SI 



BREAKS, BEGIN 

BREAKS, PFGlr" 

BIT SHIT13,iMTD5 

BEQ 2S 

PTS P5 



JAT BOT ALREADY? 
JBR IF YES 

J EXECUTE THE HE^nND 

JTEMPOKARY RETURN TO MONITOR,,,, 

JTHEN CONTINUE AT NEXT INSTRUCTION, 

JWAIT UNTIL SLAVE BEGINS ACTION ON CO^'MAND 



PIRQS, BEGIN, ERRORS 



J QUEUE UP TO CONTINUE AT ERRORS AND RTi 



004244' 104406 000000* 0002S2' 



TST 

BHI 

RP 

PIC 

BIT 

BEQ 

BISP 

BP 

JSP 

BICP 

BIT 

BNt 

BIT 

BEQ 

JSP 

BIT 

BEQ 

MSGNS 

BP 

BISP 

BIT 

BNE 

BIT 

BNE 

BIT 

BEQ 

MSGN'S 

BP 

BIT 

BNE 

TST 

BMI 

CLB 

j»«#»# 

SOFERS 



0RHCS1 

IS 

12S 

»P1T9,SMTER 

»BITl0,(aMTDS 

21 

#hIT0,FLAG 

12S 

R5,ERSUP] 

«Pn2,FLAG 

#75477, @MTEP 

3S 

»10?300,PMTEP 

12S 

R5,SFTCNT 

«PIT2,SR1 

lis 

BEGIN, SOFT 

5S 

«BIT2tFLAG 

»PITl3,aRHCSl 

7S 

#BlT8,fapHCS2 

8S 

«RIT14,9MTDS 

4S 
BEGIN, HARD 

9S 

♦BIT14,0PHCS1 

6S 

9MTDS 

11$ 

EPRTYP 

,BEGIN, TABLE 



JATTENTTON OP ERROR? 

JYES 

J NO GET OUT 

JCLEAR FCOF 

JREACHED EOT? 

JNO 



YES, SET EOT FLAG 

GET OUT 
LOAL ERROR ii«FO, 

CLEAR HARD ERROR FLAG 

ANY HARD ERROR BITS SET ? 

YES, GO REPORT THEM 
IS THIS A SOFT ERROR? 
NO CONTINUE 

GO ADD ERROR TO SOFT ERROR TABLF 
(COUNT ERROR ON THIS PASS i. FOR TOTAL ERRORS, 

REPORT SOFT ERRORS ? 

NO, CONTINUE 
ASCII MESSAGE CALL WITH COMMON HEADER 

CONTINUE 

SET HARD ERROR FLAG 
MASSBUS CONTROL PARITY ERROR? 
YES 

MASSBUS DATA PARITY ERROR? 
YES 

ANY DRIVE ERROR? 
NO, CONTINUE 

ASCII MESSAGE CALL HITH COMMON HEADER 
GO DUMP REGISTERS 
TRANSFER ERPOR? 
YES 

ATTENTION ACTIVE? 
YES 
UNKNOWN ERROR TYPE 



J 
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709 










710 


004252' 


(^00433 








C04254' 










004254* 


104403 


000000' 


0^7020 




H04262* 


000407 






004264' 










004264' 


104403 


000000' 


0^702 4 




004272* 


000403 








004274' 










004274' 


104403 


000000' 


0f»7i(i30 














004302' 


016700 


173766 






004306* 


105777 


17375f; 






004312' 


100403 








004314' 


0127b7 


000354' 


173752 














004322' 


012767 


000030 


173556 














004330* 


104405 


00000t^' 


000252 














004336' 


010067 


173732 






004342' 


004567 


001102 






004346' 


li42777 


('40000 


173676 




004354' 


056777 


174014 


173722 




004362' 


0«^026l 








004364' 


000205 








004366* 


P00241 








004370* 


000205 


































































































004372' 


004767 


001032 






004376' 


004567 


001130 






004402' 


032767 


000020 


173406 




004410' 


001100 








004412' 


016767 


17374(^ 


173740 




004420' 


012767 


177777 


173734 




004426' 


005067 


173742 






004432' 


012767 


000001 


173736 




004440' 


004567 


000150 






004444' 


132767 


000010 


175431 




004452' 


001057 








004454' 


016700 


173702 






00446?' 


0063t^0 








004462* 


136760 


173710 


000316 




004470' 


001437 








004472' 


034567 


001724 
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BP lis JCONTIK'UE 



&EU 0016 



MSGNS»REGJN,TPER 
BR 9S 



MSGMS, BEGIN, MCPEHR 
BR 96 

MSGNS,BEGIN»MDPERR 

MOV MTDB,R0 

TSTB aHHCS2 

BK'I 10$ 

MOV «ZEPO,MTDB 

MOV #30,EPRTYP 

;«»««««««««««««««««#«'» 

HRDERS, BEGIN, TABLE 

J »»#«#»»»»»#«»««#»»»*» 

f'OV R0,MTDB 

JSR F.5, CLEAR 

BIC »BIT14#(aRHCSl 

BIS SLAVNO,aMTTC 

SEC 

PTS. R5 

CLC 

PIS R5 



jASCIl MESSAGE CALL W|Th COMMON HEADER 
IDUMF REGISTEP5 



;ASCI1 MISiiAGE CALL WITH COMMON HEADER 
JDU^P REGISTERS 

jASCIl MESSAGE CALL •^ilTH COMMON HEADER 

jSAVE DATA BUFFER ADDRESS 

IREAUABLE? 

jYES# CONTlt^UE 

»NOi PRINT INSTEAD 

IXFER ERROR 

JPESTORE DATA BUFFER 
JCLEAR OUT ERRORS. 
;CLEAR TRE 
!5ET UNIT NUMBER 



> ERROR RETURN 
|NU ERROR 
> RETURN OK 



;'^HEN END OF TAPE HAS BEEN REACHED, HErtlNO ALL SLAVES 

JTYPE OUT NUMBER OF SOFT ERRORS FOR EACH SLAVE 

•FOP THIS PASS AND THE TOTAL NUMBER OF SOFT ERRORS 

;FOR EACH SLAVE, 



JSR 


PCPEEET 


JSR 


R5,REWND 


BIT 


»BIT4,SRl 


BNE 


4S 


MOV 


DVICE, DRIVE 


HOV 


#-l,DRYVfc 


CLR 


SLAVNO 


MOV 


#1, POINT 


JSK 


R5,SELDRV 


BITB 


»DIT3,FLAG 


BNE 


4$ 


MOV 


DPYVE#R0 


ASL 


PO 


BITB 


POINT»SEL(R0) 


BEQ 


3$ 


JSR 


R?i,CALTAB 



;«««#«»«»'»««««««««««## 



jORIVE k, CONIPOLER RESET 
! START REWIND ALL SLAVES 
J PRINT OUT SUMMARY ? 
; NO, GET OUT 
JRESET DRIVE POINTER 

jCLEAR SLAVE « 

JSETUP SLAVE POINTER 

J GET V6LI0 DRIVE NUMBER 

f ALL DRIVES pONE ? 

I YES, GFT OUT 

JGET DRIVE n INTO R0 

> MAKE IT A WORD ADDRESS 

;D0ES THIS SLAVE EXIST? 

fNO SLAVE GET NEXT 

^CALCULATE OFFSET TO ERROR TABLE 

jCONVFRT DRYVE TO ASCII AND 
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765 
766 
767 
768 
769 
770 
771 
772 
773 
774 
775 
776 
777 
778 
779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
790 
791 
792 
793 
794 
795 
796 
797 
798 
799 
800 
801 
802 
803 
804 
80S 
806 
807 
808 
809 
810 
811 
812 
813 
814 
81S 
816 
817 
818 
819 
820 



004476' 
004504' 



004506' 
004514' 



104420 
002016* 



104420 
002026' 



004524' 104420 

004532' 002016' 

004534* 005060 

004540' 062700 

004544* 016067 



IM455?' 

004560* 

004562* 
004570' 
004576* 
004600* 
004604* 
0«4610' 
004612* 



004614' 
004620' 
004626' 
004634* 
004636' 
004642' 



104420 

007046' 

104403 
022767 
001713 
005267 
006367 
000721 
000207 



005267 
142767 
022767 
001435 
006267 
103364 



00t't"00* 000362* 

0t'i4{?ip)0* 000374' 

0'^O416' 17366P5 

0^000^!' 000404' 



00041b' 
000002 
000416' 173634 



000000' 000406' 



000000' 007152* 
0f'006'7 173576 



173570 
173'^66 



004644* 016777 
004652' 032777 



004660' 
004662' 
004666* 



001034 
012700 
016701 
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jSTOPF AT TABLSF 
OTOAS,BEGIM,DRYVE,TAbLSF 

5 «#<t *»»««#»»»*»««««#*»»*»»«»**#»**«»«»#»«*«»*■»»** »»««»»***«»*»* 

jCONVERT SLAVNO TO ASCII AND 
ISTORE AT lAbLSl 
OTOAS,BFr,IN,SLAVNn,TABLSl 

MOV SOFTEP(R0),SUFTLC fTYPE NUMBER 
•«■•»«■»*«■«#*»•»»«#»««««»*»»»**»»*#»»««*«»»«»»«**«»«««»«**«««■»«»■»»»« 

ICONVEPT SOFTLC TO ASCII AND 

fSTORE AT TABLS2 
OTOA6,BEGli^,SOI'TLC,TABLS? 

CLR SOFTER CR0) jCLEAR SOFT ERROR COUNTER 
ADD #2,R0 JUPDATE ERROR POINTER 

HOV SOFTER(P0),SOFTTO jTYPE TOTAL 

JCONVERT SOFTTO TO ASCII AND 
;STORE AT TABLS3 
OTOftS, BEGIN, SOFTTO, TABLS3 

J ««##««»« #«*»«»»«•»**»»*»#»*»#«»»»»#«*«*»»«»»«»»»**»»»« »*•**»#*« 

MSGN$, BEGIN, TOTALE jASClI MESSAGE CALL WITH COMMON HEADER 

Cf'p #7,SLAVN0 lALL SLAVES TESTED? 

BEQ 16 ; YES, GO GET ANOTHER DRIVE 

INC SLAVNO I NO GET NEXT SLAVE 

ASL POINT JMOVE SLAVE POINTER 

HR 26 JTEST FOR NEXT SLAVE 

KTS PC ; RETURN 






jSELECT A LFGAL DRIVE 

;THIS SUBROUTINE USES R0 AND Rl 



173542 

0fc00l0 

000010 
173516 
173512 

040000 

000001 
173470 



175255 
173526 



173410 
173420 



004672* 005701 
004674* 001012 
004676* 040067 173454 



INC OPYVE ?GET NEW DRIVE NUMBER 

bICP «PIT3,FLAG ;CLEAR END OF DRIVE FLAG 

CMP #e,, OPYVE fCHECKED ALL DRIVES? 

PEO 3$ lYES GET OUT 

ASR DPIVE jIS THIS DRIVE PRESENT 

BCC SELDRV inO TRY ANOTHER DRIVE 

M0(/ DPYVE,9RhC52 jLOAD PPIVE NUMBER 

BIT #40000#§MTDT J IS IT A LEGAL DRIVE? 

PNE 4$ lYES 

MOV «1,R0 »N0 SETUP DRIVE POINTER 

MOV DPYVE,Rl jGET DRIVE NUMBER 

TST Rl fSEIUP POINTER 10 a 

BNE 2S JDRIVE NUMBER IN BIT POSITION 

BIC R0,DVICE ICLEAP ILLEGAL DRIVE 

ICONVERT DRYVE TO ASCII AND 
ISTORE AT TABLSF 
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82J 

822 

^23 

824 

825 

82fi 

827 

828 

829 

83^ 

831 

832 

833 

834 

835 

836 

837 

838 

839 

840 

841 

842 

843 

844 

845 

846 

847 

848 

849 

850 

851 

852 

853 

854 

855 

856 

857 

858 

859 

860 

861 

862 

863 

864 

865 

866 

867 

86R 

869 

870 

871 

872 

873 

874 

875 

876 



0H47t^2' |^442C? 0M0001:)' 00W362' 
0P47n' U02016' 



^04712* 
0iM72(^' 
C104 7 22' 
004724' 
004726' 
004730' 
U04736' 
004744* 
''04752' 



004754' 
004762* 
004766' 
0^4770' 
004776' 
005004' 
P05006' 

wygpiu' 

005020' 
005022' 
005030' 
005036' 
005040* 
005044* 
005053' 
005052' 
005056' 
005060' 
005066* 
005074' 
005100' 
0^5102' 
00«S106' 
005112' 
005114' 



104403 

000735 
005301 
01^6300 
000761 
152767 
0l27b7 
016767 
000205 



016777 
016700 
006300 
016777 
0J2777 
001406 
156760 
005267 
00k)403 
146760 
022767 
001405 
00526 7 
006367 
000747 
105760 
001030 
016767 
"12767 
0057fi7 
001405 
006367 
005367 
000770 
046767 



005122' 
005130* 



104420 
0020J6' 



005132* 104403 
005140' 012767 
005146' 005067 
005152' 0002515 



000001'' 007114' 



000010 
177777 
173406 



173402 
173374 



173400 
010000 



173364 
173316 



173350 

0{'.00 07 



173330 
173326 



173276 

000001 
173300 

173274 
173266 



175145 
173416 
173406 
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OTOAS^BEGI^!,OPYVE,TABLSF 

I ■»#«»*#«««#«#«»«»»»»«»»»#«#*»»*»#«»«»#####«#«# #*«#4,*#4Hf^#jj#<j«^ 

f-SGNS,BFGIN,Dn fASCU MESSAGE CALL WITH COMKUN HEADEP 
JGEI NEXT DRIVE 
JDECREMENT URIVE NU^'rtEH 
;MOVfc DHlVE PUINTER 
>TRY AGAIN 

JSET END OF DRIVE FLAG 
JRESET DRIVE COU^iTER 
IPESLT DRIVF REGISIEH 
JRETUHN 



BR 


SELCRV 


DEC 


HI 


ASL 


P0 


BF 


IS 


PI5P 


»Bn3,rLAG 


MOV 


a-l,DHiVfc 


KOV 


DVICE.DPIVF 


BTS 


R"^ 



173300 SLAVl 



173306 
173260 



jThlS ROUTINE 
;IF NO SLAVFS 



000316* 
173336 



173312 
173306 



2Sl 
3SJ 



173262 173234 6$! 



MOV 

MOV 

ASl 

MOV 

BIT 

bEU 

&ISB 

INC 

PR 

RICH 

CMP 

FFQ 

INC 

ASL 

BR 

TSTU 

BNE 

MOV 

MOV 

TST 

EFQ 

ASL 

DFC 

BR 

BIC 



BIJIIDS SLAVE TABLE 
APE PRESENT, DRIVE 

DRYVE,flPHCS2 

DFYVE»R0 



R0 

SLAVNO,aMTTC 

«10000,»MTDS 

2S 

POINT, SFL(R0) 

SLACT 

3S 

POINT, SEL(R0) 

#7,SLAVN0 

4S 

SLAVMO 

POINT 

1$ 

5EL(R0) 

7S 

DRYVE,HnLD 

«l,HLK 

HOLD 

6$ 

HLK 

HOLD 

5S 

HLK, DV ICE 



006j00f^' 000362* 



000000' 007114' 
00£001 173230 7Sf 
17322? 



FOR SELECTED DRIVE 

IS DROPPED, 
?LOAD UNIT SELECT 
;SET INDEX 
» MAKE IT A ^OHD ADDRESS 
FSELECT SLAVE 
JCHECK FOP MOL 
I NO 

;SEL SLAVE BIT 
I INCREMENT SLAVE COUNTER 
» CONTINUE 
; CLEAR BIT 
fSLAVE LIMIT MET? 
IVES 
JNO 

I MOVE POINTER 
f GO CHECK ANOTHER SLAVE 
>ANY SLAVES SELECTED? 
JYES, GET OUT 
INO 

fCALCULATE WHICH DRIVE TO DROP 
f FOUND IT YET ? 
I YES, GET OUT 
t NO, MOVE THE POINTER 
J LOOK AT THE NFXT DRIVE 
J SEE IF THIS IS IT 
{ELIMINATE DRIVE FROM EXERCISE 

ICONVERT DRYVE TO ASCII AND 
STORE AT TABLSF 



nTOAS,HEGIN,DRyVE,TABLSF 

MSGN$, BEGIN, DD |ASCII MESSAGE CALL WITH COMMON HEADER 
MOV #1, POINT .'RESET POINTER 
CLP SLAVNO fCLEAR SLAVE COUNT 

PTS R5 ; RETURN 



•DROP SLAVE FROM TEST 
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■ill 



877 

878 

879 

880 

881 

882 

883 

884 

885 

886 

887 

888 

889 

890 

891 

892 

893 

894 

895 

896 

897 

898 

899 

900 

901 

902 

903 

904 

905 

906 

907 

908 

909 

910 

91 1 

912 

913 

914 

915 

916 

917 

918 

919 

920 

921 

922 

923 

924 

925 

92S 

927 

928 

929 

930 

931 

932 



005154' 016700 

005160* 006300 

005162' 146760 

005170* 005367 



t;05l74' 10442P 
005202' 002016' 



005204' 
005212' 

005214' 
005222* 
005226' 
005230* 
003234' 



005236* 
005244' 
005252* 
005254' 
005262' 
0^5264* 
005266' 



005270' 
005272' 



005274' 
005302' 
005306' 
005312' 
005314' 
005320' 
005324' 
005310' 
005332' 
005336' 



104420 
002026' 

104 40 3 
005767 
001002 
104410 
000205 



016777 
032777 
001406 
032777 

001402 
00026J 
000205 



000241 
000205 



012767 
004567 
P04567 
103423 
104407 
104407 
005367 
001366 
004567 
012767 



005344* 104405 



005352' 
005356' 
00S360' 
00S362' 
00S364' 



004567 
000261 
000205 
000241 
000205 



173210 
173142 



000000' 000 362' 

000nk;0' 000374' 

Qr^P^di)* 007052' 

173110 



173120 173016 READYJ 
010000 J73012 



000200 173002 
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rPSVl MOV DPYVE,R0 JSET INDEX 

*Sl Pi5 I MAKE IT A WORD ADDRESS 

RICB POINT, SEL(PJ) jDROP SLAVE 

DEC SLACT ?SUBTRACT ONE FROM SLAVE COUNT 

JCONVERI DRYVE TO ASCII AND 
JSTOHE AT TABLSF 
OTOA S, BEG IN, DP YVF, TABLSF 



«««««««« 



077777 
000142 
177724 

000000' 
000000' 

173014 
000054 

000006 

00^000* 

177576 



172542 

000252' 



»»»«4f##»»»«4f»«« 



JCONVERT SLAVNO TO ASCII AND 
JSTORE AT TABLSl 
OTOA$,BEnTf;,SLAVNO,TABLSl 

hSGNS, BEGIN, DPP jASCII MESSAGE CALL WITH COMMON HEADER 

TST SLACT JAMYBODY STILL RUNNING? 

Bf^t 16 jBR IF YES 

ENDS, BEGIN I 

FTS Rb F RETURN 



MOV 


DRYVE, 


(apHCS2 


JSELECT DRIVE 


BIT 


#BIT12 


!,3MTDS 


IIF MOL SET THEN 


PFQ 


IS 




t BEGIN 


BIT 


#RIT7, 


gMTDS 


; IF DRY (DRIVE READY) SET THE 


BEO 


IS 




f BEGIN 


SEC 






? SFT DRIVE READY FOR RETURN 


PTS 


P5 




1 PETURN--DRIVE READY 
i END 
J END 


CLC 






IDRIVE NOT READY 


RTS 


R5 




JRETURN NOT READY 



173042 NOTRDYl 



MOV 
JSR 
JSP 
BCS 



«77777,CLK 
F5, CLEAR 
P5, READY 
2S 



BREAKS, BEGIN 

BREAKS, BEf^IN 

DEC CLK 

BNE IS 

JSR R5,ERSUP1 

MOV «6,ERPTYP 



jSET TIMER 

ICLEAR OUT ANY DRIVE ERRORS 

JSLAVE READY? 

JYES, RETURN 

jTEMPORARY RETURN TO MONITOR,,,, 

ITHFN CONTINUE AT NEXT INSTRUCTIO 

JKAIT SOME MORE? 

lYES, CONTINUE 

?N0, LOAD ERROR INFO, 

IDEVICE NOT READY 



HRDEBS, BEGIN, TABLE j 

JSP R5,DRSV jDROP SLAVE 

SEC 

PTS P5 IRETURN, NOT READY 

CLC IREADY 

RTS R5 fRETURN 



#«««'»««« 
»#«»<»■»<»« 



#»*«•»»»« 

»»»»»««# 
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933 










934 


005366' 


014167 


172514 




935 


005372' 


010167 


172504 




936 


005376' 


014267 


172506 




937 


005402' 


0l02h7 


172476 




9J8 


0(^5406' 


005721 






939 


005410* 


005722 






94*^ 










941 










942 


005412' 


016767 


172634 


172460 


943 


005 420* 


0l77e7 


172626 


172454 


944 


005426' 


000205 






945 










946 










947 










948 










949 


005430' 


012777 


000040 


172624 


950 


005436' 


104407 


0k)0i'00' 




951 


005442* 


104407 


00000ft' 




952 


005446' 


000207 






953 










954 










955 










956 










957 


e.05450' 


016777 


172706 


172604 


958 


005456' 


012777 


00001 1 


172566 


959 


005464* 


005067 


174400 




960 


0015470' 


005267 


174374 




961 


005474' 


104407 


000000' 




962 


005500' 


104407 


000000' 




963 


U05504' 


032777 


000200 


172552 


964 


005512' 


001006 






965 


005514' 


005767 


174350 




966 


005520' 


001363 






967 


005522' 


104403 


000000' 


007142 


968 


005530' 


052777 


040000 


172514 


969 


P05536' 


056777 


172632 


172546^ 


970 


005544' 


000205 






971 










972 










973 










974 










975 










976 










977 










978 


005546' 








979 


005546' 


104415 


000000' 


000124 


980 


005554' 


016767 


172352 


172606 


981 


005562' 


016767 


172602 


172602 


982 


005570' 


066767 


172574 


172572 


983 


005576' 


005467 


172570 




984 


005602' 


005467 


172562 




985 


005606' 


005067 


172526 




986 


005612* 


056767 


172312 


172520 


987 


005620' 


006367 


172514 




988 


005624' 


006367 


172510 
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ERSUB2I 


MOV 


-CPl),ASfi 


ILOAD DATA 




FOV 


Rl,SBADP 


ILOAD ADDPLSS Of DATA WPITTEN 




MOV 


-(P2),AWAS 


jLOAD DATA 




MOV 


R?,WASADP 


JADDPESS OF DAI A HEAD 




TST 


(pn + 


IRESET Rl 




TST 


(P2) + 


JHESET R2 


EHSUBll 


MOV 


HHCS1»CSPA 


jLOAD AODPESS OF CSH 




MQV 


apHCSl#ACSR 


ILOAD CONTENTS OF CSP 




PTS 


R5 





;CLEAR ALL HH CONTROLLER AND DEVICE REGISTERS 

PEZETI MOV KBITS, iRHCS2 ;RH INIT 

BREAKS, BEGIN jTEF^POPAP^ RETURN TO MONITOR,,,, 

BREAKS, PEGIN ITHEN CONTINUE AT NEXT INSTRUCTION, 

RTS PC IRETUHW 



CLEARi 



MOV DPYVE,flRHCS2 

MOV «11,§RHCS1 

CLR CLPRDY 

INC CLPRDY 

BREAKS, BEGIN 

BPEAKS,PEG1N 

BIT #MT7,eMTns 

BNE 2$ 

TST CLPRDY 

BNE IS 

MSGN8, BEGIN, DNH fASCll 

BIS »BlT14,aRHCSl 

PIS SLAVNO,(aMTTC 

PTS P5 



jLOAD DHlVt NUMBER 
I1S5UE A DRIVE CLEAR 
jCLP DRIVE READ^ TIMER 
jCOUi^T A BREAK CYCLE 
iTEMpORAPy RETURN TO MONITOR,,,, 
»THEN CONTINUE AT NEXT INSTRUCTION, 
JREADY ? 
IYE5 - LEAVE 
JTIMED OUT ? 
INO TRY AGAIN 
MtSSAGE CALL HTH COMMON HEADER 
JCLEAR TRE 

fSET SLAVE UNIT NUMBER 
I RETURN 



;THIS ROUTINE GFTS THE BUFFER FPOK THE MONITOR THEN pfcRFORMs 
;THE PROPER MAi^IPULATIOM 






GFTPAS, BEGIN, HPUFVA 



JGET PHYSICAL ADDRESS FROM 16-BlT HBUFVA 



MOV 


RBUFSZ,RB 




MOV 


PP,RBSAV 




ADD 


RB,RB 




NEG 


RBSAV 




NFG 


PP 




CLR 


RDEA 




BIS 


KBUFEA,HDEA 




ASL 


PDEA 


> SHIFT TO POSITIONS 


ASL 


RPEA 


; a AND 9 
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989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 



005630' 006367 172504 
005634' 006367 172500 
005640' 000205 



005642' 
005646' 
005650' 
005656' 
005660' 
005666' 
005670' 
005672' 
005700' 
005702' 
005706' 
005712* 
005714' 
005720' 
005726' 
k;05730' 



005732' 
0y57 40' 
005746' 
005754' 
005762' 
005766' 
005772* 
006000* 
006002* 
006006' 

006010* 
006016* 
006020* 
006026' 

006034' 
006042' 
006044' 
006044' 
006050* 
0060S4' 
006062' 
006064' 
006072* 
00S074' 



016700 
006 300 
136760 
001405 
016777 
000241 
000205 
022767 
001405 
005267 
006367 
000756 
005067 
012767 
000261 
000205 



142767 
012767 
016767 
012767 
005067 
004567 
132767 
001071 
016700 
006300 

136760 
001451 
016777 
016777 

132767 
001417 

104407 
104407 
032777 
001370 
032777 
001023 
004567 



000002 

177777 
172404 

000001 

172406 
176622 

000010 

172354 



J72336 
172342 



174143 
172414 
172404 
172414 



172234 
172250 



000002 174041 



000000' 

000000' 

020000 



172202 
172172 



ASL 
ASL 
PTS 



PDEA 
RbEA 
R5 



;THIS ROUTINE GETS THE SLAVES SELECTED FROM IHt "SLAV" ROUTINE 



GTSLAV! 



172522 000316* ISl 
172510 172416 

000007 172474 ?SI 

172466 
172464 

172454 3${ 

000001 172450 



MOV 

ASL 

PITP 

BEQ 

MOV 

CLC 

PTS 

CMP 

PEG 

INC 

ASL 

BP 

CLR 

MOV 

SEC 

RTS 



DRYVE,R0 

POINT,SF.LCR0) 

2$ 

SLAVNO,PMTTC 

P5 

« 7, SLAV NO 

3S 

5LAVN0 

POINT 

16 

SLAVNO 

«1, POINT 

R5 



I SET INDEX 

; MAKE IT A WORD ADDRESS 

ITESr FOR SLAVE 

jNOT SELECTED, LOOK FOR MORE 

JSET SLAVE NUMBER 

JNORMAL RETURKl CLEAR CARRY 

IRETUPN, SLAVE FOUND 

lALL SLAVES DONE? 

{YES, GET OUT 

}N0, COUNT A bLAVE 

JMOVE POINTER TO MEXT SLAVE 

IGO LOOK FOR IT 

fCLEAR COUNTER 

JRESET POINTER 

?SET CAPHYI NO SLAVES 

»RE1URN, NO SLAVES FOUND 



THIS SliPROUTIMF IS USED FOP CONTROLLING SLAVE REWINDS, IT FIRST ISSUES 
REWIND COMMANDS TO ALL SLAVES, I^ REMIND MODE (FLAG Bill = 0). wHEN ALL 
SLAVES ARE STARTED, IT CHANGES TO CHECK-REwTND MODE (FLAG BlTl = l) Aj^D 
REPEATS THE SAME BASIC CODE, THIS TIME WAITING FOR EACH SLAVE TO COMPLETE 
PEi^IND (REACH POT), 

BICB «BlTl,»fLAG »RE.«.1ND MODE 

MOV »»1,DRYVE fPESET DRIVE » 

MOV nvlCE, DRIVE I RESET DRlVb POINTER 

MOV «}, POINT JSFTUP SLAVE POINTER 

CLP SLAVNO JCLEAP SLAVE COUNTER 

JSP H5,SELDRV j GET A VALID DRIVE NUMBER 

BITB #BIT3,FLAG f ALL DRIVES DONE ? 

PME 5S J YES, GEl OUT 

POV DPVVE,R0 JCOPY DRIVE » INTO REG. 

ASL H^ J MAKE IT A WORD ADDRESS 



REWNDt 
10$J 



181 



172362 000316' 251 



BITB POINT, SEL(R0) 

REQ 4S 

MOV DRYVE,9RHCS2 

MOV SLAVNO, 9MTTC 



BITB 


#PIT1,FLAG 


EEQ 


7S 


BREAKS 


BEGIN 


BREAKS 


r BEGIN 


BIT 


8B1T13,PMTDS 


BNE 


8§ 


BIT 


#SITl,iMTDS 


BNE 


4$ 


JSR 


P5,DRSV 



IDOES THIS SLAVE EXIST? 
JNO GET NEXT SLAVE 
iLOAD UNIT » 
fSELECT SLAVE 

JARE WE SETTING UP REWINDS OR CHECKING? 
ISETTING UP 

^TEMPORARY RETURN TO MONITOR,.,, 

ITHEN CONTINUE AT NEXT INSTRUCTION, 

IHAS PIP RESET YET? 

I NO 

fHAKE SURE WE'RE AT BOT 

I WE ARE 

IWE'RE NOTl DROP THE SLAVE 
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) 



1045 

t047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
106P5 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1(^72 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
1089 
lfo90 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1099 
1099 
1100 



006100* 
006102* 
006106' 
006110' 
0061} J' 
006110' 
006122* 
006126' 
006126* 
006132* 
006136' 
006140' 
006142* 
006150* 
006157* 
006156' 
006162' 



000420 
004567 
103403 
004567 
103412 
004567 
012703 

104407 
104407 
005303 
001372 
022767 
001701 
005267 
006367 
(^00712 



t>06164' 132767 
006172* 001004 
006174* 152767 
006202* 000656 
006204* 000205 



0062?6' 
006214' 
006216' 
006224' 
006226* 
0(^6234* 
006236' 
006244* 
006246' 
006254' 
006256' 
006264' 
006266' 
006274* 



032767 
001004 
032777 
001423 
022767 

001010 

032767 

001013 

012767 
y004?7 
037767 

001003 
012767 

000207 



006276* 
006302' 
006306' 
006310' 
006312* 
006314* 
006322* 
006324' 
006326' 
006332' 



012700 
012701 
005020 
005301 
001375 
032767 
001425 

005000 
005067 
012767 



177130 
177160 



175650 
000177 



000000' 
000000' 



000002 

000002 



01)0040 
000P02 
00 2300 

00020M 

001300 
000100 

002300 



000416' 
000200 



3Sf 
ll$l 



000*^07 172224 4SS 



172216 
172214 



573711 58! 
173701 

6$l 
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BP 4S 

JSR R5, READY J^'AKE SURE IT IS BEADY 

PCS 3S jPEADYr CONTINUE 

JSR R5,.N0TPDY INOT READY* GO WAIT 

BCS 4S fSTlLL NOT READY, SLAVE DROPPED 

JSP P5,PEW1N'D >G0 REWIND A SLAVE 

MOV »177»R3 JSET DP COUNTER FOR WAIT LOOP 

PREAKS,PEGIN JTEMPORAHY RETURN TO MONITOR,,,, 

BREAK S^BI-'GIN IThEN CONTINUE AT NEXT INSTRUCTION, 

DEC P3 

PNE lis MAIl A WHILE LONGER 

CMP «7, SLAVED lALL SLAVES TESTED? 

BEQ 18 lYESi GO CHECK NEXT DRIVE 

INC 5LAVN0 ;N0, COUNT A SLAVE 

ASL POINT JPOINT 10 NEXT SLAVE 

PR 2S I GO LOOK. FOR NEXT SLAVE 

BITB #BITI,FLAG jCHECK WHICH MODE WE'RE IN NOW 

BKE 6$ jDOWi BOTH MODES... EXIT ROUTI^iE 

8ISB «nni,FLAG jSbT CHECH-REwIND MODE 

BP 10$ l>«.AIT FOR DRIVES TO REI^IND 

RTS R5 IRETURN 



fSWAPS DENSITY IF ALLOWEn AND IF HARDWARE ALLOWS, 



171602 SWAP.DENSlTYt 

172040 

172114 ISI 

171552 

172074 

171532 2SI 

172054 

3$l 



BIT 


»PIT5, 


rSRl 


RNE 


18 




biT 


SBITI, 


rMMTI^S 


8EQ 


3$ 




Cf^P 


S2300I 


rOENSTY 


BNE 


2S 




BIT 


l»bIT7, 


rSRl 


BNE 


3$ 




MCV 


#13fc0, 


-DENSTY 


BK 


3$ 




BIT 


S6IT6, 


-SRI 


bNE 


38 




hOV 


«2300( 


.DENSTY 


RTS 


PC 





I+TM03/TE16 

J+1M02/TU16 

l+SLAVES AT BOT? 

If+CANT SWAP, RETURN 

J+PHESENTLY AT 1600? 

J+NO-B00BPI SET, 

J + 800BPI ALLOj^ED? 

;+CANT SWAP, RETURN 

l+SET DENSIY TO 800BPI 

f+RETURN 

» + 16k30BPI ALLOWED? 

J+CANT SWAP, RETURN 

l+SFT DENSITY TO 1600BPI 

;+RETURN 



;CLEAR SOFT FRpfip TABLE A'^D SLAVE TAULE IF OPERATOR DID 
;NOT SELECT THE SLAVES, IF OPFRAIOR SELECTED SLAVES, 
fCOUNT THEM, 



000002 171474 



172004 

00000} 



172036 2$l 



MOV 


«'SOFTFR,H0 


fGFT ADDRESS OF TABLE 


MOV 


#128, ,R1 


rSETUP COUNTER 


CLP 


(F0) + 


fCLEAR TABLE 


DEC 


Rl 


JQONE YET? 


RNE 


IS 


INO 


BIT 


#LIT1,SR1 


JDID OPERATOR SEL SLAVES? 


BEQ 


5S 


f NO 


CLR 


P0 


JCLFAR P0 WHICH bDPIVF INDEX 


CLR 


SLACT 


;CLEAR SLAVE COUNTER 


MOV 


«1, POINT 


rSETUP POINTER 
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1101 
1102 
1103 
1104 
1103 
1106 
1107 
1108 
1109 
U10 
1111 
1112 

nil 

1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1130 
IISI 
1152 
11S3 
1154 
1155 
1156 



006340' 
006346* 
006350' 
006354* 
006360* 
006362' 
006366' 
006372' 
006374* 
006376* 
006402' 
006406* 
006412' 
006414' 
006416' 
006420' 



036760 
001402 
005267 
006367 
103367 
062700 
0727fe,t? 
001357 
00P411 
005067 
012700 
012701 
005020 
005301 
001375 
000205 



006422' 
006424* 
^106426' 
006430' 
006432' 
006436' 
006440' 
006442* 
006444* 

fe)06446' 
P0b452' 
006456* 
006462' 
006466* 
006474* 
006476* 
v?06504' 
006512' 
00fc570' 



0063t0 
t^063'^0 
006300 
k506300 
01670} 
006301 
006301 
Pfe01P0 

000205 

012704 
110467 
110467 
110467 
032767 
0014U 
116767 
116767 
116767 
000205 



P06522' 016700 
096S26' 006300 
006530' 004567 
^06534* 005260 
006340* 022760 
006S46' 001022 



172032 000316' 3Sl 



171762 
172016 



000002 
000020 



171734 
000316' 

000010 



000V'«0 3 
173422 
173417 
173414 

000010 

173373 
173366 
173361 



171322 

173374 
173367 
173362 



BIT 


PC INT, SI 


BFO 


4S 


IWC 


SLACX 


ASL 


POINT 


BCC 


38 


ADD 


#2,R0 


CMP 


#16,,P0 


BNE 


7$ 


BF 


78 


CLR 


SI ACT 


MOV 


KSEL.Rk 


MOV 


»8,,R1 


CLP 


CR0H 


DEC 


Rl 


BNE 


6S 


RTS 


R5 



fDOES THIS SLAVE EXIST 

JNO 

>YES, INCREMENT COUNTER 

TMOVC POINTER LEFT 

ITST NEXT BIT IF WD IS NOT FINISHED 

;UPDATE DRIVE INDEX FOR SLAVE TABLE 

?DONt ALL DRIVES YET? 

»N0 TEST FOR MORE SLAVES 

jDONE COUNTING SLAVES GET OUT 

JCLEAR SLAVE COUNTER 

; GET ADDRESS OF SLAVE TABLE 

» SETUP COUNIER FOR 8, WORDS 

I CLEAR OUT A WORD 

J ALL DONE ? 

? NO, KEEP CLEARING 

|uO^E, RETURN 



;SCFT ERROR 'MATRIX' CALCULATION! THERE ARE 16 WORDS FOP EACH OF 
JTHF POSSIBLE 8 DRIVES (ROw) kNO A COLUMN FOR EACH SLAVE NU^*BFR^ EACH 
fSLAVE HAS TWO KOPDSj ERRORS IN THIS PASS THROUGH TAPE, AND TOTAL 
;EPROP COUNT. OH EXIT, R0 WILL CON'TIAIN TABLE OFFSET, 

;'^ULTIFLY URIVE NUMBER RY lb ('ROw »•) 



JGET SLAVE NUMBER 

IMULIIPLY IT 

>BY 4 TO GET 'MATRIX COLUMN' 

ICREATE THE TABLE OFFSEl 

{RETURN 

1 LOAD REG. 4 WITH DEFAULT RETRY LIMIT 

J SET WRITE RETRY LIMIT 

f SET READ REVERSE LIMIT 

I SET READ FORWARD LIMIT 

I OVERRIDE DEFAULT RETRY LIMITS ? 

I NO, CONTINUE 

I YES, SET WRITE LIMIT 

I READ REVERSE LIMIT 

J READ FORWARD LIMIT 

i RETURN 



CALTABJ 


A5L 


RPi 




A5L 


K0 




ASL 


R0 




ASL 


R0 




FOV 


SLAVN0,P1 




ASL 


Pi 




ASL 


F1 




ADD 


R1,P0 




PTS 


P5 


SWITCHi 


MOV 


#3,P4 




MOVB 


R4,LIM1 




HOVB 


R4,LIM2 




MOVP 


P4,LIM3 




PIT 


8B1T3,SR1 




BEQ 


IS 




MOVB 


WLIM,LIMi 




MOVB 


RPLIM,LIM2 




MOVP 


PFLIM,LIM3 


Id! 


RTS 


P5 



;ADD SOFT ERROR TH SOFT ERROR TABLE « IF 20 SOFT ERRORS PER PASS 
;0N A SLAVE, DROP IT, 

IGET DRIVE NUMBER 

t MAKE IT A WORD ADDRESS 

ICALCULATE OFFSET FOR ERROR TABLE 

MDD I TO ERROR FOP THIS PASS 

>20 SOFT EPP0R8? 

JNO 



171634 




SFTCNTI MOV 


DRyVE,R0 






ASL 


R0 


177666 




JSR 


R3,CALTAB 


000416' 




INC 


SOFTER(R03 


000024 


000416' 


CMP 


#20«fSOFTEH(R0) 






BNE 


H 
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1157 








1158 








1159 








11 6P 


0n6550' 


104420 


000000* 000362 


1 161 


006556' 


002016* 




1162 








llbJ 








1164 








1165 








1166 


H06560' 


104420 


000000' 000374 


1167 


006566' 


002026' 




1168 








1169 


006570* 


104403 


000000' 007124 


U70 








1171 


006576* 


005720 




1172 


0fcJ6600' 


005260 


000416* 


1173 


006604* 


008725 




1174 


0fl»6606' 


005725 




1175 


00661«' 


000167 


174540 


U76 


006614* 


005720 




1177 


006616* 


005260 


000416' 


1178 


006622' 


000205 




1179 








1180 








1181 








1182 








1183 


006624* 


016700 


171156 


1184 


006630* 


010067 


171416 


118S 


006634* 


005720 




1186 


006636* 


U10k)67 


171412 


1187 


006642' 


0P5720 




1188 


006644* 


010067 


1714{f6 


1189 


ti06650' 


005720 




1190 


006652* 


010067 


171402 


1191 


006656' 


005720 




1192 


006660' 


010067 


171376 


1193 


006664* 


005720 




1194 


006666* 


010067 


171372 


1195 


006672' 


005720 




U96 


006674' 


R10067 


171366 


1197 


006700* 


005720 




1198 


006702' 


010067 


171362 


1199 


006706' 


005720 




1200 


006710' 


010067 


171356 


1201 


006714' 


005720 




12P2 


006716' 


010067 


171352 


1203 


006722' 


t'05720 




1204 


006724' 


010067 


171346 


1205 


006730' 


005720 




1206 


006732* 


010067 


171342 


1207 


006736* 


005720 




1208 


006740* 


0J0067 


171336 


1209 


006744' 


005720 




1210 


006746' 


01006 7 


171332 


Ull 


006752' 


032767 


001000 17107b 


1212 


006760' 


001406 





jCONVERT DPyVt TO ASCII AND 
iSrOKE AT TABLSr 
OTOAS,BEGTN,UBYVF,TABL,SK 

ICOnVKPT SLAVNO to ASCII AND 
JSTOPE AT TABLSl 
0T0AS,RFGIN,SLAVN0,TABLS1 



'^ ,..^ 



MSGN8#bE.GlN,SFTlIM 



TST 
IMC 
TST 
TST 
JHP 
TST 
IMC 

RTS 



MOV 
MOV 
'1ST 
MOV 
TST 
MOV 
TST 
MOV 
TST 
MOV 
TST 
MOV 
TST 
MOV 
TST 
MOV 
TST 
MOV 
TST 
MOV 
TST 
MOV 
TST 

^lOv 

TST 

MOV 
TST 
MOV 
PIT 
BF.Q 



{P0)* 

SOKTtRCRk?) 
(P53 + 
(P5) + 
NtXTB 
(P0) + 

SUFTERCP0) 
R5 



jASCII message; call ^ITH COMMON HKADEP 

|4- 20+ SFT ERRS DRPNG SLAVE 

J POINT TO TOTAL ERRORS COUNTER 

fADU ONE TO TOTAL ERROR COUNTER 

.•CLEAR RETURN TO 'ERRORS' 

ICLEAP RETURN TO 'NTPUPT' 

JGO DROP SLAVE ANO CONTINUE 

> POINT TO TOTAL ERRORS COUNTER 

fADt- 1 TO TOTAL ERRORS 

;RETURN 



AnDP,p0 

Rt#PHCSl 

CP0)f 

R0,MTWC 

{P0)* 

Pt',PhBA 

(P0)f 

F0,MTFC 
(P03 + 
P0»PHCS2 
(R0) + 
R0,MTDS 
(P0) + 
R^^,MTER 
(R0) + 
PP,MTAS 
(P0)* 
P0,MTCK 
CR0) + 
R0,MTrB 
CR0) + 
R0,MTMH 
(P0) + 
PP,MTDT 
(P0)* 
R0,MTSN 
(F0) + 

Hi ,;nTC 

«/^UDR22#RESl 
IS 



IGET DEVICE ADDRESS 
JGENERATE REGISTER ADDRESS 



111/70? 

JNO, SKIP IT ALL 
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1213 


006762' 


005720 


1214 


006764' 


010067 171316 


1215 


006770* 


005720 


1216 


006772' 


010067 171312 


1217 


006776' 


016700 171006 


1218 


007002' 


01272fci 004032 


1219 


007006' 


116710 171000 


1220 


007012' 


000207 


1221 






1222 






1223 






1224 






1225 






1226 






1227 


007014' 


007656' 


1228 


007016' 


177777 


1229 


007020' 


007200' 


1230 


007022' 


177777 


1231 


007024' 


007256' 


1232 


0(37026' 


177777 


1233 


00703^' 


007305' 


1234 


007032' 


177777 


1235 


007034' 


007433' 


1236 


007036' 


177777 


1237 


007040' 


007221' 


1238 


007fe;42' 


007341' 


1239 


007044* 


177777 


1240 


007046' 


007354' 


1241 


007050' 


177777 


1242 


0070'?2' 


007176* 


1243 


007054' 


007625' 


1244 


007056' 


007602' 


1245 


007060' 


0(^2016* 


1246 


007062* 


007625' 


1247 


007064' 


002026' 


1248 


007066* 


007341' 


1249 


007070' 


177777 


1250 






1251 


007072' 


007370' 


1252 


007074* 


007635' 


1253 


0075t7b' 


177777 


1254 


007100* 


007406' 


1255 


007102' 


007635' 


U56 


007104* 


177777 


1257 


007106* 


007447' 


1258 


007110* 


007635* 


12S9 


007112' 


177777 


1260 


007114* 


007473' 


1261 


007U6* 


002016' 


1262 


007120* 


007176' 


1263 


007122' 


177777 


1264 






1263 


007124' 


007473' 


1366 


007126* 


002016' 


1267 


007130* 


007625* 


I26S 


007132' 


002026' 



I0A(1052) 18-APP-79 


07141 PAGE 27 


TST 


(R0) + 


lYES IT IS 


MOV 


RW,PHBAF 


JA 11/70 


TST 


CF0) + 


JSfcTUP THESE 


MOV 


Pi.,FHCS3 


>TWO REGISTERS 


MCV 


VECTOR, P0 


;GET VECTOR ADDR 


KiOV 


«^'TPUPt,(P03 


♦ }LOAD IT 


MOVP 


PP1,CR0) 


;SET BR LEVEL 


RTS 


rc 





LDPIVE! 


MSL 




177777 


TRERl 


MSI 




177777 


MCFERRI 


MS2 




177777 


MDPfcPPi 


MS3 




177777 


HARD! 


MS 8 




177777 


NOntNSi 


MSGNDS 




MS4 




177777 


SOFTS 


KS5 




177777 


DRPI 


CPLF 




M5E 




M59 




TABLSF 




MSE 




TABLSl 




MS4 




177777 


^RITi 


MS6 




MSLIM 




177777 


ROPi 


MS7 




MSLIh 




177777 


PDFl 


M50 




MSLIM 




177777 


DDl 


MSA 




TABLSF 




CPLF 




177777 


SFTlIMt 


M&A 




TABLSF 




MSE 




TASLSl 



f SLAVE 
>NOT READY 



l+WRITE RETRY 
l+LIMIT EXCEEDED 



>*READ REVERSE RETRY 
l+LIMIT EXCEEDED 



l+READ FOWARD RETRY 
f+LIMIT EXCEEDED 



>+DROPPEP DRIVE 
I* SLAVE 
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1269 «07t14' (.kj7354' M55 | •♦■ SUH EHHOR 

1270 007136' 007635' MSLTH j+ LIMIT EXCEEDED 

1271 0k)7140' 177777 177777 
1272 

1273 tt07142* «07l7fa' DNRj CPLf 

1274 ti07144' 007602' M59 jNOT READY - DRIVE 

1275 007146' 002016' TABT..SF 

1276 007150' 177777 177777 
1277 

127*! 007152* 007571* TOTALRl M5D ^DRIVE # 

1279 007154* 002016' TA»LSF 

1280 007156' 007625' M&E jSLAVC » 

1281 007160' 002026' TABLSl 

1282 007162' ("07514' MSB |5UFT ERRORS THIS PASS 
12b3 007164' 002036' TBPT-S2 

1284 007166' Otn545' FSC jTOTAL SOFT ERRORS 

1285 0.^7170' 002046' TABLS3 

1286 007172' 007176* CF'LF 

1287 007174* 177777 177777 
1288 

1289 0?'7176' 000045 CBLF I ,ASCI^ '%' 

1290 e07200* 052k<40 040522 051516 HSl l ,ASCIZ ' TRANSFER ERROR * 

1291 007206' 042506 020122 051105 

1292 007214' 047522 020122 000 

1293 007221' 040 047516 042040 M5G^'DS! .PSCIZ * NO DENSITY SELECTED — MOnULE' 
U94 007226* 047105 044523 054524 

1295 007234* 051440 04bl05 041505 

1296 007242* 042524 026504 046455 

1297 007250' 042117 046125 000105 

1298 fe/07256* 046440 fe)5l501 f^41l23 ^Sil ..ASCIZ ' MASbBUS PARITSf ERROR ' 

1299 007264' 051525 05P^40 051101 

1300 007272' 052111 020131 051105 

1301 007300' 047522 020122 000 

1302 007305' 040 040515 051523 ^'S3I .ASCIZ ' MASSBUS DATA PARITY ERROR ' 

1303 007312' 052502 020123 040504 

1304 007320' 040524 05004« 051101 

1305 007326' 052111 020131 051105 

1306 007334* 047522 220122 000 

1307 007341* 040 051104 050117 ^'S4! .ASCIZ ' PROPPEP %' 

1308 007346' 042520 020104 000^345 

1309 007354' 051440 043U7 020124 f^SSt .ASCIZ * SOFT ERROR' 

1310 007362' 051105 047522 000122 

1311 007370' 020045 051127 052111 MSfe; .ASCIZ '% WRITE RETRY' 

1312 007376' 020105 042522 051124 

1313 007404' 000131 

1314 007406' 020045 042'«22 042101 MS7f .ASCIZ '% READ HEVFRSE RETRY' 

1315 007414' 051040 053105 o'Slies 

1316 007422' 042523 05U40 t»52105 

1317 007430* 054522 00fc 

1318 007433* 040 040510 042122 M58| .ASCIZ ' HARD ERROR' 

1319 007440' 04244(7 051122 051117 

1320 007446' 000 

1321 007447' 045 05104^^ 040505 fS0J .ASCIZ '% READ FOWARD RETRY' 

1322 007454' 020104 017306 040527 

1323 007462' 042122 051040 "52105 

1324 007470* 054522 000 
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I .ASCIZ *% DROppFn DRIVE ' 

I .ASCIZ '% SOFT ERRORS THIS PASS ' 



1325 


007473' 


045 


042040 


047522 


1326 


007500' 


050120 


042105 


042040 


1327 


007506* 


044522 


042526 


000040 


1328 


007514* 


020045 


047523 


052106 


1329 


007522* 


042440 


051122 


051117 


1330 


007530* 


020123 


044124 


051511 


1331 


007536* 


050040 


051501 


070123 


1332 


007544* 


000 






1333 


007545* 


040 


047524 


040524 


1334 


007552' 


(•20114 


047523 


052106 


1335 


007560' 


043440 


e51122 


051117 


1336 


007566* 


020123 


000 




1337 


007571* 


045 


042040 


''44522 


1338 


007576* 


042526 


000040 




1339 


00760^* 


047516 


020124 


042522 


1340 


007610* 


042101 


020131 


070055 


1341 


007616' 


051104 


053111 


020105 


1342 


007624' 


000 






1343 


OR7625' 


040 


046123 


053101 


1344 


Oi'7632' 


020105 


000 




1345 


007635' 


040 


044514 


044515 


1346 


007642' 


020124 


054105 


042503 


1347 


007650' 


042105 


042105 


0O004O 


1348 










1349 


007656' 


037k976 


052076 


042115 


1350 


<107664' 


("20120 


047514 


042101 


1351 


007672' 


t-47055 


044522 


042526 


1352 


007700' 


(^44040 


051501 


041O4U 


1353 


007706' 


042505 


0201 16 


0511!^4 


1354 


007714* 


050117 


04252^^ 


000104 


1355 




000001 







.ASriZ » TOTAL SOFT ERRORS 



.A5CIZ *% DRIVE • 
.ASCIZ *NOT FEAHY 



.ASCIZ * SLAVE * 

.ASCIZ * LIMIT EXCEEDED 



.ASCIZ •>>>TMUF LOAD-DHIVE HAS BEEN DROPPED' 



TMBt^ DbC/Xil SYSTEM EXERCISER MODULE 



ACSR 0OP102P 

ADDR H0«006P 

ADDB22« U0l!?iPt» 

AS8 n00ik)6p 

ASTAT 000104P 

AWAS f'00U0R 

BEGIN 00CP0(i!ip 
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BITki a 


0ffl0kJ01 


BITl a 


n00«02 


BIT10 s 


ti02000 


BlTll s 


00400y 


BIT12 a 


P1H000 


BIT13 a 


02c>(^^vi 


B1T14 a 


^4^000 


8IT15 a 


10000td 


BIT2 8 


f;00004 


BIT3 s 


000010 


BIT4 a 


000020 


BIT5 m 


0W0043 


BIT6 B 


000100 


BIT7 a 


000200 


BIT8 B 


000400 


BIT9 a 


t)0J000 


BK5PAC 


U03364R 


BREAKSs 


104407 


BRl 


000012P 


BR? 


000P13R 


BT0D8 8 


104421 


BUFEEA 


000414P 


BUFEND 


000410R 


BUFEPA 


000412P 


BUFF 


005546P 


BUFIN 


^31016? 


CALTAB 


006422P 


CDATAS3 


104412 


CDERCT 


0a0144R 


CDWDCT 


000146P 


CLEAP 


005450K 


CLK 


000344R 


CLPRDY 


002070R 


CLTAB 


006276R 


CNT 


000346P 


CONFIG 


000056R 


CONTNU 


002760R 


CPLF 


007176R 


CSRA 


000100R 


CY 


00031 2R 


CYCCNT 


P02066B 


DATCKSs 


104411 


DATLRgs 


104404 


DD 


007114R 


DENSTY 


000350R 



256» 


943« 
























222» 


1183 
























285S 


637 


1211 






















2fe0« 


934« 
























?S8# 


























26l# 


936* 
























21<)» 


392 


420 


452 


459 


5k,3 


510 


524 


528 


539 


544 


555 


560 


577 


582 


644 


654 


662 


663 


670 


691 


700 


708 


712 


7lb 


719 


728 


766 


772 


779 


788 


791 


821 


824 


866 


869 


884 


890 


893 


996 


918 


919 


925 


950 


95J 


961 


962 


967 


979 


1038 


1039 


1053 


1054 


1 160 


1166 


1169 




















285» 


491 


493 


594 


ft79 


















2B5» 


435 


658 


1019 


1035 


1042 


10b3 


1065 


1074 


1096 








2P5» 


677 
























2«?5» 


























2B5» 


902 
























285» 


664 


694 


1040 




















285» 


698 


702 


732 


968 


















285« 


























285« 


533 


540 


551 


556 


573 


578 


682 


689 


693 








2«?5I 


433 


473 


756 


805 


829 


1025 


1139 












285!» 


749 
























28'5« 


949 


1072 






















2P5I* 


381 


1082 






















28S« 


386 


904 


963 


1078 


















2'»5« 


696 
























2fl5« 


676 
























587 


602# 
























285^ 


662 


663 


918 


919 


950 


951 


961 


962 


1036 


1039 


1053 


1054 


224« 


1219 
























225# 


























285« 


























337« 


453* 


454* 


455* 


456* 


624 
















335» 


450» 


451* 


452 




















336j$ 


623 
























449 


978» 
























267 


339# 
























762 


1I25« 


1153 






















285« 


503 
























275» 


























276# 


























546 


562 


564 


568 


584 


586 


590 


731 


915 


957# 








317I( 


914« 


920* 






















356# 


959« 


960* 


965 




















376 


I091S 
























318« 


397» 


506* 


508 


523* 


















244» 


























512» 


595 


597 






















1242 


1262 


1273 


1286 


12891 


















254« 


942« 
























302# 


























302 


354# 


398* 


507* 




















285* 


























285« 


























824 


869 


1260» 






















3}9« 


383* 


388* 


652 


1076 


1080* 


1084* 















-.,) 



i 
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DNP 


007142R 


9b7 


1273« 
























DRIVE 


000360R 


323« 


403* 


751* 


808* 


831* 


1021* 
















DRP 


007052R 


893 


1242# 
























DRSV 


005154R 


596 


877» 


927 


1044 




















DBYVE 


000362P 


324« 


404* 


602 


609 


612 


619 


626 


634 


752* 


758 


766 


804* 


80b 






810 


814 


821 


830* 


838 


839 


855 


866 


877 


884 


9i£il 


957 


996 






1020* 


1027 


1032 


1151 


1160 


















DVICE 


000356R 


322* 


402* 


40 3 


417 


419* 


423 


471 


751 


817* 


831 


862* 


lfc>21 




DVini 


000014P 


226« 


402 
























EA22 


002064H 


353« 


646 


647* 


648* 


649 


















ENDITSa 


= 104413 


2851* 


510 


524 






















ENDS 8 


! 104410 


2858 


528 


896 






















EOT 


004372P 


494 


747# 
























ERAS 


003626fi 


633# 


























ERRORS 


00404fiR 


670 


6731 
























ERRTYP 


0001 06P 


259Jt 


542* 


B58» 


580* 


7 1 6 » 


726* 


94,j« 














ERSUBl 


0054 J 2P 


681 


922 


942# 






















ERSUB2 


005366K 


934« 


























EXITS a 


■ 104400 


285« 


654 
























FIN! 


003036R 


393 


425 


472 


476 


527« 


















FLAG 


002103R 


367» 
805* 


399* 
829* 


433 

1019* 


473 

1025 


491 

1035 


493* 
1063 


535 
1065* 


551 


573 


679* 


682* 


b9i* 


756 


FREE 


000150P 


277# 


























FUNC 


000352P 


32i^« 


604» 


607» 


610* 


613* 


620* 


627* 


633* 


650« 


653 








FWDSPA 


003410B 


565 


606» 
























GETPASa 


104415 


2P5# 


452 


979 






















GO 


O02652P 


489S 


538 
























GOA 


00271fiP 


492 


4981) 


569 






















GOB 


002716R 


501« 


591 
























GOGO 


003644P 


618 


625 


632 


637« 




















GOGOl 


003752P 


ft05 


608 


611 


635 


652» 


















GTSLAV 


005642P 


479 


996# 
























GViBUFlB 


104414 


2R5» 


459 
























HARD 


007t''34R 


700 


1235« 
























HLK 


v»00402P 


332« 


856* 


859* 


862 




















HOLD 


000400R 


33U 


855* 


857 


860* 




















HRDCNT 


000044R 


239# 


























HROEPga 


104405 


285« 


728 


925 






















HRDPAS 


000050R 


241# 


























ICONT 


000036R 


236t 


508 
























ICOUNT 


000040R 


237# 


























IDNUH 


000122R 


266« 


























IMODX.a 


000000 


278S 


460 
























INIT 


e00030p 


233* 


























INTR 


000120R 


265l» 


375* 
























IDRIVE 


00701 4B 


420 


1227K 
























LIMi 


002100R 


36411 


537 


1136* 


1141* 




















L1M2 


P'02101R 


365# 


553 


1137* 


1142* 




















L1M3 


002102R 


366« 


575 


1138* 


1143* 




















MAP22$a 


104416 


2P5# 


644 
























MCPEPR 


007024R 


716 


1231# 
























MDPERR 


007030R 


719 


12333 
























MODNAM 


000000R 


220# 


























MODSP 


000252P 


234 


293# 
























MSA 


00747JR 


1260 


1265 


1325# 






















Mas 


007S14R 


1282 


1328s 
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MSC 


^507545R 


MSD 


f'07571R 


M5E 


007625R 


MSGNDS 


^07221P 


HSGNS 


s 104403 


MSGS8 


B In44w2 


M5GS 


a 104401 


MSL 


M07656R 


M5LIM 


fr'07635p 


MS0 


007447R 


MSI 


007200R 


M52 


007256R 


MS3 


007305R 


MS4 


007341R 


HS5 


007354R 


M56 


907370R 


MS7 


007406P 


MS9 


007433R 


MS9 


007602R 


MTAS 


000270R 


MTCK 


000272P 


MTDB 


e00274R 


MTDS 


000264R 


MTDT 


00030f^R 


MTER 


000266R 


MTFC 


000260R 


MTMR 


000276R 


MTSN 


000302R 


MTTC 


t)00304R 


MTrtC 


000254R 


NEXT 


002472R 


NFXTA 


O03344P 


NEXTB 


n03354R 


NOD ENS 


007P'40R 


NOTRDY 


O05274R 


NTRUPT 


004032R 


NULL s 


000000 


OPEN 3 


P0000fe> 


OTOAS B 


104420 


PASCNT 


000034P 


PASS 


003020P 


PA18 


002056R 


PA22 


^02062R 


PIROS a 


000004 


POINT 


000376P 


POPSP s 


005726 


P0PSP2a 


022626 


PPTY = 


000000 


PRTY0 a 


000000 


PBTYl a 


000040 



1284 
1278 
J243 
1237 
285# 
R69 
2fl58 
285a 
1227 
1252 
1257 
1229 
1231 
1233 
1238 
1240 
1251 
12R4 
1235 
1244 
2939 
294i 
295» 
29l« 
U94« 
297# 
292» 
289« 
296« 
298« 
299» 
287« 
45B» 
547 
596* 
392 
483 
668« 
2P5« 
221 
256 
276 
337 
285# 
235« 
509 
350« 
352» 
2858 
330« 
1006* 
285« 
2R5# 
7H59 
225 
285« 



1333» 
1337|( 
1246 
12930 
392 
893 



1349«( 
1255 
1321» 
1290S 
129a# 
13P'2» 
1248 
1269 
131U 
13140 
1318# 
1274 
1199» 
1200» 
721 
658 

811 

676» 

603* 

1204» 

120B« 

652* 

614» 

478 

563 

1175 

1237» 

914X 

1218 

227 
258 
277 

766 
446 
52l# 
639» 
645 
670 
400* 
I009» 



420 
967 



1307# 

I309t 



724* 
664 

1206* 
6R3 

606* 



733* 
621* 
480 
585 



228 
260 
285» 



515* 
1022* 



539 
1169 



73^'« 
677 



665 
615* 



841« 
628* 
496 
594« 



229 
261 
305 



518* 

1030 



12fc/2* 
698 



1196* 
622* 



969* 
1 186* 
516 



230 
263 
306 



754* 
1060* 



247 
264 
307 

821 



760 
1 100* 



248 
265 
308 



795* 
1101 



249 
268 
309 



844 
U04* 



250 
269 
310 



251 
271 
311 



252 
272 
312 



253 
274 
335 



254 
2lb 
336 
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2851 

2858 

2«?5# 

224 2B5« 

2P5S 

285« 

285* 

2e5« 

285» 

2fi5« 

2R5# 

243» 

327« 622 

328« 621 

269« 986 

?ft8« 503 

270» 980 

267!« 450 

315» 631 

577 1257« 

501 626» 

555 1254« 

498 619* 
481 9P«i» 
441 447 
262 4461 
245i! 637 
246ii 

490 534« 

499 550« 
5«'2 572« 
65e# 1050 
440 748 
406 747 
363« 1143 
288» 616* 
300# 646* 
2Bhn 653* 
290# 6(^2* 
957* 1032* 
301« 1216* 
362» 1142 
262# 

255« 935* 

305» 760 

432 470 

405 1183« 

6fi7 115l» 

1169 1265JI 

313« 475 

438 8J8# 

329# 401* 

87l» 890 
2388 

2851 544 
24PS 
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PFTY2 


B 000100 


PBTY3 


a 000140 


PPTY4 


a 000200 


PPTYS 


3 00P240 


PBTY6 


a 000300 


PRTY7 


a 000340 


PS 


s 177776 


PSW 


= 177776 


PUSH 


a 005746 


PUSH2 


« 024646 


RAN06 


B 104417 


RANNUM 


000054R 


PB 


0fi0 37<*P 


PBSAV 


000372R 


PBUFEA 


0001 30R 


RBUFPA 


000126R 


BBUFSE 


000n2P 


PBUFVA 


000124R 


PDEA 


000340R 


RDF 


007106R 


RDFWD 


003560R 


RDP 


007100R 


PDREV 


003512R 


READY 


005236P 


REST 


002424R 


RESTRT 


002414R 


PESl 


000056R 


BES2 


000060P 


RETRYl 


003042B 


RETRY2 


003126R 


RETRY3 


003234R 


REWIND 


003772R 


PEWND 


005732R 


REZLT 


005430R 


RFLIM 


002077P 


RHBA 


0a0256R 


RHBAE 


0003e6R 


RHCSl 


000252P 


BHCS2 


000262P 


BHCS3 


P00310R 


RBLIM 


002076R 


PSTRT 


P00112R 


SBADR 


000102P 


SEL 


000316R 


SELDPV 


004614R 


SETUP 


00662 4R 


SFTCNT 


006522R 


SFTLIM 


007124R 


SLACT 


000336P 


SLAY 


004754R 


5LAVN0 


000374R 


SOrCNT 


000042R 


SOFERIa 


104406 


SOFPAS 


000046R 



629 

628 



979 
985* 



916 
449» 



1019# 
''49« 

623* 

1214* 

66e« 

609* 

1192* 



844* 
755 



512 
969 



980* 
981« 



98] 
983# 



673 
612* 



847* 
804# 



514* 

1000 



694 
619* 



853 
809 



517* 
1003 



702 
626* 



879* 
625 



733 

1005* 



732* 
634* 



998 

1024 



753* 
1008* 



942 
696 



943 

722 



958# 
810* 



96e» 
83ti» 



llb4* 
901* 



772 
1023* 



792 
10J3 



794* 
1057 



841 

1059* 



848 
1129 



850* 
U66 
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SOFT 


Wtf7046P 


SOFTER 


y00416R 


SOFTLC 


0'jy404F 


SOFTTO 


t^i^"»406R 


SPOINT 


HM0fi12P 


SPaiZ a 


1 90004P' 


SBl 


P^>00J6P 


SP2 


00(*02«dR 


SR3 


O00kl22P 


5P4 


f!kiW7AB 


SSL 


0r26HB 


START 


OV12104R 


STAT 


00flPl26B 


SVRi;5 


0O0062R 


SVRl 


0UU064P 


SVB2 


0i}p066B 


SVP3 


P0007frip 


SVPI 


000072P 


SVP5 


000074R 


5VR6 


000076B 


SWAP.D 


''06206R 


SWITCH 


k>06446R 


SYSCNT 


0k)0052P 


TABLE 


000252R 


TA8LSF 


002016P 


TABLSl 


0a2026R 


IABLS2 


002036P 


TABLS3 


002046R 


TOTALE 


007152P 


TPMK 


001426R 


TREB 


U07020P 


TRPDFDs 


000022 


TPYl 


002072P 


TPy2 


002073P 


TRY3 


002074R 


VECTOR 


0^00 1 0R 


WASADR 


000104P 


WB 


0O0364P 


WBSAV 


00tj366p 


WBUFEA 


000136R 


WBUFPA 


000134P 


WBUFPQ 


0001 40P 


WBUFSZ 


000142P 


WDFR 


000U6R 


WDTO 


000114P 


WLIK 


002075P 


WPEA 


0003 42P 


WRIT 


007072P 


WRITE 


003444R 


XFLAG 


000005R 


XMEM 


0020b0R 


EEPO 


000354P 


f ^ 


007722R 



6«31 


1240S 






33S« 


775 


7R2# 


734 


333» 


775« 


779 




J348 


784# 


786 




234S 








1* 


278 






2278 


381 


386 


435 


1096 


U39 






2288 








229« 








230» 








474 


4791 


484 


519 


233 


3738 


448 




232» 








247« 








248S 








249» 








250» 








2!il# 








252» 








2538 








477 


495 


1072# 




407 


lU5i 






242!» 








285« 


544 


560 


582 


3408 


766 


821 


866 


342» 


772 


890 


1166 


344» 


779 


1283 




3468 


788 


1285 




791 


12788 






521 


609# 






7J2 


12298 






2fl5# 








3'58# 


485« 


534# 


537 


359» 


486» 


550* 


553 


360« 


4R7» 


572* 


575 


223« 


1217 






2578 


937* 






325« 


460# 


461 


462* 


3268 


461# 


463» 


614 


272« 


465 






2718 


616 






2738 








2748 


460 






2648 


373» 






2638 


374* 






3bl» 


U4l 






3168 


4b5» 


4b6» 


467« 


539 


12518 






4R9 


6128 






2218 








3«518 


617* 


624» 


631« 


3218 


724 






3388 


3398 


3408 


3428 



749 



708 728 925 

884 1160 1245 

1247 1268 1281 



) 



468* 


469* 


617 


640* 


641* 


642 


3448 


3468 


504 
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0000^0 
007722 



000 
001 
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ERROPS DETECTED I 

DEFAULT GLOBALS GENFBATEDs « 

PACKtXTMPK0,PACK|XTMBR0/SOL/CHFlSYMsDnXCOM,PACKsXTr'BK0 
RUN-TIMEl 6 U 1 SECONDS 
RUN-TIME RATIOj S0/19a2,5 
COPE USEDl 7K (13 PAGES) 



\ 



